diff options
author | julie <julielangou@users.noreply.github.com> | 2014-10-07 04:13:57 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2014-10-07 04:13:57 +0000 |
commit | bbe0f64dbb8a9fd1996294011a86338d89696ab8 (patch) | |
tree | a7b4da17b5eb8d34a505065b4124199f2662644e /SRC | |
parent | b41b7aa47263069794edfa57a4a0dc8ed598def7 (diff) | |
download | lapack-bbe0f64dbb8a9fd1996294011a86338d89696ab8.tar.gz lapack-bbe0f64dbb8a9fd1996294011a86338d89696ab8.tar.bz2 lapack-bbe0f64dbb8a9fd1996294011a86338d89696ab8.zip |
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
Diffstat (limited to 'SRC')
-rw-r--r-- | SRC/dlaed7.f | 2 | ||||
-rw-r--r-- | 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 |