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

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
 *