diff --git a/SRC/cgeqp3.f b/SRC/cgeqp3.f
index e27b97549..5d21cd5a5 100644
--- a/SRC/cgeqp3.f
+++ b/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
 *
diff --git a/SRC/dgeqp3.f b/SRC/dgeqp3.f
index 256cd7806..ff3b8e788 100644
--- a/SRC/dgeqp3.f
+++ b/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
 *
diff --git a/SRC/sgeqp3.f b/SRC/sgeqp3.f
index e9105486e..a40a54430 100644
--- a/SRC/sgeqp3.f
+++ b/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( MINMN.EQ.0 ) RETURN
 *
       NFXD = NFXD - 1
 *
diff --git a/SRC/zgeqp3.f b/SRC/zgeqp3.f
index fb50162fc..ee806aba7 100644
--- a/SRC/zgeqp3.f
+++ b/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
 *