From bbe0f64dbb8a9fd1996294011a86338d89696ab8 Mon Sep 17 00:00:00 2001 From: julie Date: Tue, 7 Oct 2014 04:13:57 +0000 Subject: [PATCH] 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 --- SRC/dlaed7.f | 2 +- SRC/slaed7.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/SRC/dlaed7.f b/SRC/dlaed7.f index 972c1bc5..3320b19f 100644 --- 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 766e1c7b..c0c790a4 100644 --- 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 -- 2.34.1