Fix info value problem for (c,d,s,z)tgsy2.f reported by Elena Ivanova (ORACLE) ...

diff --git a/SRC/ctgsy2.f b/SRC/ctgsy2.f
index 144d0e7..726b0ad 100644 (file)
--- a/SRC/ctgsy2.f
+++ b/SRC/ctgsy2.f
@@ -321,7 +321,7 @@
          ELSE IF( N.LE.0 ) THEN
             INFO = -4
          ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
-            INFO = -5
+            INFO = -6
          ELSE IF( LDB.LT.MAX( 1, N ) ) THEN
             INFO = -8
          ELSE IF( LDC.LT.MAX( 1, M ) ) THEN

diff --git a/SRC/dtgsy2.f b/SRC/dtgsy2.f
index 44fc84f..dcc5e44 100644 (file)
--- a/SRC/dtgsy2.f
+++ b/SRC/dtgsy2.f
@@ -342,7 +342,7 @@
          ELSE IF( N.LE.0 ) THEN
             INFO = -4
          ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
-            INFO = -5
+            INFO = -6
          ELSE IF( LDB.LT.MAX( 1, N ) ) THEN
             INFO = -8
          ELSE IF( LDC.LT.MAX( 1, M ) ) THEN

diff --git a/SRC/stgsy2.f b/SRC/stgsy2.f
index d7014df..0b9be33 100644 (file)
--- a/SRC/stgsy2.f
+++ b/SRC/stgsy2.f
@@ -342,7 +342,7 @@
          ELSE IF( N.LE.0 ) THEN
             INFO = -4
          ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
-            INFO = -5
+            INFO = -6
          ELSE IF( LDB.LT.MAX( 1, N ) ) THEN
             INFO = -8
          ELSE IF( LDC.LT.MAX( 1, M ) ) THEN

diff --git a/SRC/ztgsy2.f b/SRC/ztgsy2.f
index 757f2b0..0e1c8cc 100644 (file)
--- a/SRC/ztgsy2.f
+++ b/SRC/ztgsy2.f
@@ -321,7 +321,7 @@
          ELSE IF( N.LE.0 ) THEN
             INFO = -4
          ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
-            INFO = -5
+            INFO = -6
          ELSE IF( LDB.LT.MAX( 1, N ) ) THEN
             INFO = -8
          ELSE IF( LDC.LT.MAX( 1, M ) ) THEN