From e9c2063932f71c766c6da88fcfe016a5600413fa Mon Sep 17 00:00:00 2001
From: angsch <17718454+angsch@users.noreply.github.com>
Date: Sun, 30 Jan 2022 10:01:10 +0000
Subject: [PATCH] Fix input argument check

Use the same argument check as the drop-in replacement xGEQRT3
to ensure M >= N.
---
 SRC/cgeqrt2.f | 6 +++---
 SRC/dgeqrt2.f | 6 +++---
 SRC/sgeqrt2.f | 6 +++---
 SRC/zgeqrt2.f | 6 +++---
 4 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/SRC/cgeqrt2.f b/SRC/cgeqrt2.f
index c48d8eaae5..11221636de 100644
--- 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
index c422cf4979..00f800d435 100644
--- 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
index 982d67be85..f6532f8126 100644
--- 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
index 947856adfa..34d9d544fd 100644
--- 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