Fix problem in Info return value when checking input parameter

Definition of xLAED7( ICOMPQ, N, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, [ etc..]

QSIZ is the third argument, not the fourth

       ELSE IF( ICOMPQ.EQ.1 .AND. QSIZ.LT.N ) THEN
-         INFO = -4
+         INFO = -3

Bug reported by Elena Ivanova (Oracle) directly to Julie on Oct 2nd 2014
Bug labelled as Bug122

diff --git a/SRC/dlaed7.f b/SRC/dlaed7.f
index 972c1bc5902428506aea55575f3c36f0e10e560e..3320b19fedd2c17bf2d83b3c681052cbb40375bc 100644 (file)
--- a/SRC/dlaed7.f
+++ b/SRC/dlaed7.f
@@ -304,7 +304,7 @@
       ELSE IF( N.LT.0 ) THEN
          INFO = -2
       ELSE IF( ICOMPQ.EQ.1 .AND. QSIZ.LT.N ) THEN
-         INFO = -4
+         INFO = -3
       ELSE IF( LDQ.LT.MAX( 1, N ) ) THEN
          INFO = -9
       ELSE IF( MIN( 1, N ).GT.CUTPNT .OR. N.LT.CUTPNT ) THEN

diff --git a/SRC/slaed7.f b/SRC/slaed7.f
index 766e1c7b20b3fafc08cd78970a2bc826aaab8cf3..c0c790a4756edaea6cc2731e29ef46d6a171063a 100644 (file)
--- a/SRC/slaed7.f
+++ b/SRC/slaed7.f
@@ -304,7 +304,7 @@
       ELSE IF( N.LT.0 ) THEN
          INFO = -2
       ELSE IF( ICOMPQ.EQ.1 .AND. QSIZ.LT.N ) THEN
-         INFO = -4
+         INFO = -3
       ELSE IF( LDQ.LT.MAX( 1, N ) ) THEN
          INFO = -9
       ELSE IF( MIN( 1, N ).GT.CUTPNT .OR. N.LT.CUTPNT ) THEN