following up with 1c09a232b5d1314e2e13f36e081efe9f9406d17e

( Correct the test suite accordingly. )

diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f
index 77592e5..f3faa7f 100644 (file)
--- a/TESTING/EIG/derred.f
+++ b/TESTING/EIG/derred.f
@@ -415,7 +415,7 @@
      $                 2, 2, A, 2, S, U, 1, VT, 2,
      $                 W, 1, IW, INFO)
          CALL CHKXER( 'DGEJSV', INFOT, NOUT, LERR, OK )
-         INFOT = 14
+         INFOT = 15
          CALL DGEJSV( 'G', 'U', 'V', 'R', 'N', 'N',
      $                 2, 2, A, 2, S, U, 2, VT, 1,
      $                 W, 1, IW, INFO)

diff --git a/TESTING/EIG/serred.f b/TESTING/EIG/serred.f
index f4b63ea..fc94ba4 100644 (file)
--- a/TESTING/EIG/serred.f
+++ b/TESTING/EIG/serred.f
@@ -415,7 +415,7 @@
      $                 2, 2, A, 2, S, U, 1, VT, 2,
      $                 W, 1, IW, INFO)
          CALL CHKXER( 'SGEJSV', INFOT, NOUT, LERR, OK )
-         INFOT = 14
+         INFOT = 15
          CALL SGEJSV( 'G', 'U', 'V', 'R', 'N', 'N',
      $                 2, 2, A, 2, S, U, 2, VT, 1,
      $                 W, 1, IW, INFO)