Merge pull request #646 from angsch/master

Fix input argument check
Reference-LAPACK · Jan 31, 2022 · c14db3b · c14db3b
2 parents 1782d90 + e9c2063
commit c14db3b
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 12 deletions.
diff --git a/SRC/cgeqrt2.f b/SRC/cgeqrt2.f
@@ -154,10 +154,10 @@ SUBROUTINE CGEQRT2( M, N, A, LDA, T, LDT, INFO )
 *     Test the input arguments
 *
       INFO = 0
-      IF( M.LT.0 ) THEN
-         INFO = -1
-      ELSE IF( N.LT.0 ) THEN
+      IF( N.LT.0 ) THEN
          INFO = -2
+      ELSE IF( M.LT.N ) THEN
+         INFO = -1
       ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
          INFO = -4
       ELSE IF( LDT.LT.MAX( 1, N ) ) THEN

diff --git a/SRC/dgeqrt2.f b/SRC/dgeqrt2.f
@@ -154,10 +154,10 @@ SUBROUTINE DGEQRT2( M, N, A, LDA, T, LDT, INFO )
 *     Test the input arguments
 *
       INFO = 0
-      IF( M.LT.0 ) THEN
-         INFO = -1
-      ELSE IF( N.LT.0 ) THEN
+      IF( N.LT.0 ) THEN
          INFO = -2
+      ELSE IF( M.LT.N ) THEN
+         INFO = -1
       ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
          INFO = -4
       ELSE IF( LDT.LT.MAX( 1, N ) ) THEN

diff --git a/SRC/sgeqrt2.f b/SRC/sgeqrt2.f
@@ -154,10 +154,10 @@ SUBROUTINE SGEQRT2( M, N, A, LDA, T, LDT, INFO )
 *     Test the input arguments
 *
       INFO = 0
-      IF( M.LT.0 ) THEN
-         INFO = -1
-      ELSE IF( N.LT.0 ) THEN
+      IF( N.LT.0 ) THEN
          INFO = -2
+      ELSE IF( M.LT.N ) THEN
+         INFO = -1
       ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
          INFO = -4
       ELSE IF( LDT.LT.MAX( 1, N ) ) THEN

diff --git a/SRC/zgeqrt2.f b/SRC/zgeqrt2.f
@@ -154,10 +154,10 @@ SUBROUTINE ZGEQRT2( M, N, A, LDA, T, LDT, INFO )
 *     Test the input arguments
 *
       INFO = 0
-      IF( M.LT.0 ) THEN
-         INFO = -1
-      ELSE IF( N.LT.0 ) THEN
+      IF( N.LT.0 ) THEN
          INFO = -2
+      ELSE IF( M.LT.N ) THEN
+         INFO = -1
       ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
          INFO = -4
       ELSE IF( LDT.LT.MAX( 1, N ) ) THEN