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.

diff --git a/TESTING/EIG/cerred.f b/TESTING/EIG/cerred.f
index e1b04be7ab9369b1c96b091e622b58b420079d0f..564d58b758c9ed8f4a51577112b1e332bc785c95 100644 (file)
--- 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 4f778b15780b0dd06d06561b2749b25b9eec9483..6b388cf33f6a0ca74966dbe5dba9832bfa94532a 100644 (file)
--- 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 72ff23914abd874634e4fd0958c96faf8b47c554..a9fc9ab4bf04b4cccbd5e9d887587a8a4e1ea765 100644 (file)
--- 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 4079647099ebd48f4c558f6a75faf2733396d9bc..63e868b05dd817b3a81ee8ef620c0ec5d89b4bac 100644 (file)
--- 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 )