As suggested by Angelika,see PR#1035, use MINMN.EQ.0 instead of M.EQ.0

Author: langou

SRC/cgeqp3.f

@@ -251,7 +251,7 @@ SUBROUTINE CGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK,
 *
 *     Quick return if possible.
 *
-      IF( M.EQ.0 ) RETURN
+      IF( MINMN.EQ.0 ) RETURN
 *
       NFXD = NFXD - 1
 *

SRC/dgeqp3.f

@@ -242,7 +242,7 @@ SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO )
 *
 *     Quick return if possible
 *
-      IF( M.EQ.0 ) RETURN
+      IF( MINMN.EQ.0 ) RETURN
 *
       NFXD = NFXD - 1
 *

SRC/sgeqp3.f

@@ -239,7 +239,7 @@ SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO )
 *
 *     Quick return if possible.
 *
-      IF( M.EQ.0 ) RETURN
+      IF( MINMNM.EQ.0 ) RETURN
 *
       NFXD = NFXD - 1
 *

SRC/zgeqp3.f

@@ -251,7 +251,7 @@ SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK,
 *
 *     Quick return if possible.
 *
-      IF( M.EQ.0 ) RETURN
+      IF( MINMN.EQ.0 ) RETURN
 *
       NFXD = NFXD - 1
 *