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/slaed7.f | |
| 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/slaed7.f')
| -rw-r--r-- | SRC/slaed7.f | 2 |
1 files changed, 1 insertions, 1 deletions
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 |