diff options
| author | langou <langou@users.noreply.github.com> | 2015-11-30 03:25:19 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2015-11-30 03:25:19 +0000 |
| commit | 416a84f06811638c7986f099526814ed62b16f5e (patch) | |
| tree | 116bbbaa60f8a0daafa879c92a5da33a86b223c5 /TESTING | |
| parent | 66636c801206b4790400ccbe6bbbeb5713894c67 (diff) | |
| download | lapack-416a84f06811638c7986f099526814ed62b16f5e.tar.gz lapack-416a84f06811638c7986f099526814ed62b16f5e.tar.bz2 lapack-416a84f06811638c7986f099526814ed62b16f5e.zip | |
oops . . .
this is related to commit r1654.
In commit r1654, I fixed the error parameter in GESVDX to be 17 when LDVT is
invalid, I should also have changed the test suite. Both the code and the test
suite were incorrect.
Between r1654 and r1659, LAPACK error testing were returning 4 errors because
of this.
Fixed.
Julien.
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/EIG/cerred.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/derred.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/serred.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/zerred.f | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/TESTING/EIG/cerred.f b/TESTING/EIG/cerred.f index e1b04be7..564d58b7 100644 --- a/TESTING/EIG/cerred.f +++ b/TESTING/EIG/cerred.f @@ -484,7 +484,7 @@ CALL CGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) - INFOT = 16 + INFOT = 17 CALL CGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f index 4f778b15..6b388cf3 100644 --- a/TESTING/EIG/derred.f +++ b/TESTING/EIG/derred.f @@ -475,7 +475,7 @@ CALL DGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) - INFOT = 16 + INFOT = 17 CALL DGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/EIG/serred.f b/TESTING/EIG/serred.f index 72ff2391..a9fc9ab4 100644 --- a/TESTING/EIG/serred.f +++ b/TESTING/EIG/serred.f @@ -475,7 +475,7 @@ CALL SGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) - INFOT = 16 + INFOT = 17 CALL SGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/EIG/zerred.f b/TESTING/EIG/zerred.f index 40796470..63e868b0 100644 --- a/TESTING/EIG/zerred.f +++ b/TESTING/EIG/zerred.f @@ -484,7 +484,7 @@ CALL ZGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) - INFOT = 16 + INFOT = 17 CALL ZGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) |