From 89e6d08cb3551d04d65b2ddb1d2534beb24c7a76 Mon Sep 17 00:00:00 2001 From: julie Date: Wed, 20 Nov 2013 18:57:47 +0000 Subject: [PATCH] Fix info value problem for (c,d,s,z)tgsy2.f reported by Elena Ivanova (ORACLE) - Sent Nov 20th --- SRC/ctgsy2.f | 2 +- SRC/dtgsy2.f | 2 +- SRC/stgsy2.f | 2 +- SRC/ztgsy2.f | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SRC/ctgsy2.f b/SRC/ctgsy2.f index 144d0e7..726b0ad 100644 --- 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 --- 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 --- 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 --- 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 -- 2.7.4