diff options
author | julie <julielangou@users.noreply.github.com> | 2015-04-01 14:56:02 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2015-04-01 14:56:02 +0000 |
commit | fe1d6223cac273c4b7f45311ae0f1e60aba3f09b (patch) | |
tree | af4380adbf4b1ee9e4ec58218d6c5c2e2d76dc70 | |
parent | 8d99316e83b648c4db688056578c6a32fe55d1ce (diff) | |
download | lapack-fe1d6223cac273c4b7f45311ae0f1e60aba3f09b.tar.gz lapack-fe1d6223cac273c4b7f45311ae0f1e60aba3f09b.tar.bz2 lapack-fe1d6223cac273c4b7f45311ae0f1e60aba3f09b.zip |
Problem reported by Elena (Oracle)
Some arguments return the wrong Info number
For example LDX is not the 14th argument, but 15th.
Correct corresponding testing routines
-rw-r--r-- | SRC/csysvxx.f | 6 | ||||
-rw-r--r-- | SRC/dsysvxx.f | 6 | ||||
-rw-r--r-- | SRC/ssysvxx.f | 6 | ||||
-rw-r--r-- | SRC/zsysvxx.f | 6 | ||||
-rw-r--r-- | TESTING/LIN/cerrvxx.f | 4 | ||||
-rw-r--r-- | TESTING/LIN/derrvxx.f | 4 | ||||
-rw-r--r-- | TESTING/LIN/serrvxx.f | 4 | ||||
-rw-r--r-- | TESTING/LIN/zerrvxx.f | 5 |
8 files changed, 20 insertions, 21 deletions
diff --git a/SRC/csysvxx.f b/SRC/csysvxx.f index 20be8526..8ebc2c4a 100644 --- a/SRC/csysvxx.f +++ b/SRC/csysvxx.f @@ -598,7 +598,7 @@ INFO = -8 ELSE IF( LSAME( FACT, 'F' ) .AND. .NOT. $ ( RCEQU .OR. LSAME( EQUED, 'N' ) ) ) THEN - INFO = -9 + INFO = -10 ELSE IF ( RCEQU ) THEN SMIN = BIGNUM @@ -617,9 +617,9 @@ END IF IF( INFO.EQ.0 ) THEN IF( LDB.LT.MAX( 1, N ) ) THEN - INFO = -12 + INFO = -13 ELSE IF( LDX.LT.MAX( 1, N ) ) THEN - INFO = -14 + INFO = -15 END IF END IF END IF diff --git a/SRC/dsysvxx.f b/SRC/dsysvxx.f index d0e37b33..166d085b 100644 --- a/SRC/dsysvxx.f +++ b/SRC/dsysvxx.f @@ -594,7 +594,7 @@ INFO = -8 ELSE IF( LSAME( FACT, 'F' ) .AND. .NOT. $ ( RCEQU .OR. LSAME( EQUED, 'N' ) ) ) THEN - INFO = -9 + INFO = -10 ELSE IF ( RCEQU ) THEN SMIN = BIGNUM @@ -613,9 +613,9 @@ END IF IF( INFO.EQ.0 ) THEN IF( LDB.LT.MAX( 1, N ) ) THEN - INFO = -12 + INFO = -13 ELSE IF( LDX.LT.MAX( 1, N ) ) THEN - INFO = -14 + INFO = -15 END IF END IF END IF diff --git a/SRC/ssysvxx.f b/SRC/ssysvxx.f index 9f7ff35a..ef70a6a6 100644 --- a/SRC/ssysvxx.f +++ b/SRC/ssysvxx.f @@ -597,7 +597,7 @@ INFO = -8 ELSE IF( LSAME( FACT, 'F' ) .AND. .NOT. $ ( RCEQU .OR. LSAME( EQUED, 'N' ) ) ) THEN - INFO = -9 + INFO = -10 ELSE IF ( RCEQU ) THEN SMIN = BIGNUM @@ -616,9 +616,9 @@ END IF IF( INFO.EQ.0 ) THEN IF( LDB.LT.MAX( 1, N ) ) THEN - INFO = -12 + INFO = -13 ELSE IF( LDX.LT.MAX( 1, N ) ) THEN - INFO = -14 + INFO = -15 END IF END IF END IF diff --git a/SRC/zsysvxx.f b/SRC/zsysvxx.f index e7ba266e..4139c112 100644 --- a/SRC/zsysvxx.f +++ b/SRC/zsysvxx.f @@ -595,7 +595,7 @@ INFO = -8 ELSE IF( LSAME( FACT, 'F' ) .AND. .NOT. $ ( RCEQU .OR. LSAME( EQUED, 'N' ) ) ) THEN - INFO = -9 + INFO = -10 ELSE IF ( RCEQU ) THEN SMIN = BIGNUM @@ -614,9 +614,9 @@ END IF IF( INFO.EQ.0 ) THEN IF( LDB.LT.MAX( 1, N ) ) THEN - INFO = -12 + INFO = -13 ELSE IF( LDX.LT.MAX( 1, N ) ) THEN - INFO = -14 + INFO = -15 END IF END IF END IF diff --git a/TESTING/LIN/cerrvxx.f b/TESTING/LIN/cerrvxx.f index 95b8386a..bcc2d520 100644 --- a/TESTING/LIN/cerrvxx.f +++ b/TESTING/LIN/cerrvxx.f @@ -1061,13 +1061,13 @@ $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) CALL CHKXER( 'CSYSVXX', INFOT, NOUT, LERR, OK ) - INFOT = 12 + INFOT = 13 EQ = 'N' CALL CSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X, $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) CALL CHKXER( 'CSYSVXX', INFOT, NOUT, LERR, OK ) - INFOT = 14 + INFOT = 15 CALL CSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X, $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f index db32956a..fbceee8e 100644 --- a/TESTING/LIN/derrvxx.f +++ b/TESTING/LIN/derrvxx.f @@ -875,13 +875,13 @@ $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO ) CALL CHKXER( 'DSYSVXX', INFOT, NOUT, LERR, OK ) - INFOT = 12 + INFOT = 13 EQ = 'N' CALL DSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X, $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO ) CALL CHKXER( 'DSYSVXX', INFOT, NOUT, LERR, OK ) - INFOT = 14 + INFOT = 15 CALL DSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X, $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO ) diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f index 147e5ff1..80d37fc5 100644 --- a/TESTING/LIN/serrvxx.f +++ b/TESTING/LIN/serrvxx.f @@ -876,13 +876,13 @@ $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO ) CALL CHKXER( 'SSYSVXX', INFOT, NOUT, LERR, OK ) - INFOT = 12 + INFOT = 13 EQ = 'N' CALL SSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X, $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO ) CALL CHKXER( 'SSYSVXX', INFOT, NOUT, LERR, OK ) - INFOT = 14 + INFOT = 15 CALL SSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X, $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, IW, INFO ) diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f index c974c3b4..07127037 100644 --- a/TESTING/LIN/zerrvxx.f +++ b/TESTING/LIN/zerrvxx.f @@ -1092,18 +1092,17 @@ $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) - INFOT = 12 + INFOT = 13 EQ = 'N' CALL ZSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X, $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) - INFOT = 14 + INFOT = 15 CALL ZSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X, $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) - CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) * ELSE IF( LSAMEN( 2, C2, 'SR' ) ) THEN * |