summaryrefslogtreecommitdiff
path: root/TESTING/LIN
diff options
context:
space:
mode:
Diffstat (limited to 'TESTING/LIN')
-rw-r--r--TESTING/LIN/cdrvhex.f2
-rw-r--r--TESTING/LIN/cdrvsyx.f2
-rw-r--r--TESTING/LIN/cerrhex.f4
-rw-r--r--TESTING/LIN/cerrsyx.f4
-rw-r--r--TESTING/LIN/ddrvsyx.f2
-rw-r--r--TESTING/LIN/derrsyx.f4
-rw-r--r--TESTING/LIN/sdrvsyx.f2
-rw-r--r--TESTING/LIN/serrsyx.f4
-rw-r--r--TESTING/LIN/zdrvsyx.f2
-rw-r--r--TESTING/LIN/zerrhex.f4
-rw-r--r--TESTING/LIN/zerrsyx.f4
11 files changed, 17 insertions, 17 deletions
diff --git a/TESTING/LIN/cdrvhex.f b/TESTING/LIN/cdrvhex.f
index 06dd79b3..782c6c07 100644
--- a/TESTING/LIN/cdrvhex.f
+++ b/TESTING/LIN/cdrvhex.f
@@ -635,7 +635,7 @@
*
* Check the error code from CHESVXX.
*
- IF( INFO.NE.K ) THEN
+ IF( INFO.NE.K .AND. INFO.LE.N ) THEN
CALL ALAERH( PATH, 'CHESVXX', INFO, K,
$ FACT // UPLO, N, N, -1, -1, NRHS, IMAT, NFAIL,
$ NERRS, NOUT )
diff --git a/TESTING/LIN/cdrvsyx.f b/TESTING/LIN/cdrvsyx.f
index a85a8009..58b5c14d 100644
--- a/TESTING/LIN/cdrvsyx.f
+++ b/TESTING/LIN/cdrvsyx.f
@@ -641,7 +641,7 @@
*
* Check the error code from CSYSVXX.
*
- IF( INFO.NE.K ) THEN
+ IF( INFO.NE.K .AND. INFO.LE.N ) THEN
CALL ALAERH( PATH, 'CSYSVXX', INFO, K,
$ FACT // UPLO, N, N, -1, -1, NRHS, IMAT, NFAIL,
$ NERRS, NOUT )
diff --git a/TESTING/LIN/cerrhex.f b/TESTING/LIN/cerrhex.f
index cec7ce60..cc3d2f02 100644
--- a/TESTING/LIN/cerrhex.f
+++ b/TESTING/LIN/cerrhex.f
@@ -294,12 +294,12 @@
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
CALL CHKXER( 'CHERFSX', INFOT, NOUT, LERR, OK )
- INFOT = 11
+ INFOT = 12
CALL CHERFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
CALL CHKXER( 'CHERFSX', INFOT, NOUT, LERR, OK )
- INFOT = 13
+ INFOT = 14
CALL CHERFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
diff --git a/TESTING/LIN/cerrsyx.f b/TESTING/LIN/cerrsyx.f
index 00b1670c..f904176c 100644
--- a/TESTING/LIN/cerrsyx.f
+++ b/TESTING/LIN/cerrsyx.f
@@ -277,12 +277,12 @@
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK )
- INFOT = 11
+ INFOT = 12
CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK )
- INFOT = 13
+ INFOT = 14
CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
diff --git a/TESTING/LIN/ddrvsyx.f b/TESTING/LIN/ddrvsyx.f
index 2245c51e..b09699bf 100644
--- a/TESTING/LIN/ddrvsyx.f
+++ b/TESTING/LIN/ddrvsyx.f
@@ -625,7 +625,7 @@
*
* Check the error code from DSYSVXX.
*
- IF( INFO.NE.K ) THEN
+ IF( INFO.NE.K .AND. INFO.LE.N ) THEN
CALL ALAERH( PATH, 'DSYSVXX', INFO, K,
$ FACT // UPLO, N, N, -1, -1, NRHS, IMAT, NFAIL,
$ NERRS, NOUT )
diff --git a/TESTING/LIN/derrsyx.f b/TESTING/LIN/derrsyx.f
index 266b369e..d94c02fb 100644
--- a/TESTING/LIN/derrsyx.f
+++ b/TESTING/LIN/derrsyx.f
@@ -278,12 +278,12 @@
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, IW, INFO )
CALL CHKXER( 'DSYRFSX', INFOT, NOUT, LERR, OK )
- INFOT = 11
+ INFOT = 12
CALL DSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, IW, INFO )
CALL CHKXER( 'DSYRFSX', INFOT, NOUT, LERR, OK )
- INFOT = 13
+ INFOT = 14
CALL DSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, IW, INFO )
diff --git a/TESTING/LIN/sdrvsyx.f b/TESTING/LIN/sdrvsyx.f
index cf3616bf..b3fc76f5 100644
--- a/TESTING/LIN/sdrvsyx.f
+++ b/TESTING/LIN/sdrvsyx.f
@@ -625,7 +625,7 @@
*
* Check the error code from SSYSVXX.
*
- IF( INFO.NE.K ) THEN
+ IF( INFO.NE.K .AND. INFO.LE.N ) THEN
CALL ALAERH( PATH, 'SSYSVXX', INFO, K,
$ FACT // UPLO, N, N, -1, -1, NRHS, IMAT, NFAIL,
$ NERRS, NOUT )
diff --git a/TESTING/LIN/serrsyx.f b/TESTING/LIN/serrsyx.f
index 79ed25e2..48513d9d 100644
--- a/TESTING/LIN/serrsyx.f
+++ b/TESTING/LIN/serrsyx.f
@@ -278,12 +278,12 @@
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, IW, INFO )
CALL CHKXER( 'SSYRFSX', INFOT, NOUT, LERR, OK )
- INFOT = 11
+ INFOT = 12
CALL SSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, IW, INFO )
CALL CHKXER( 'SSYRFSX', INFOT, NOUT, LERR, OK )
- INFOT = 13
+ INFOT = 14
CALL SSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, IW, INFO )
diff --git a/TESTING/LIN/zdrvsyx.f b/TESTING/LIN/zdrvsyx.f
index 33ba010d..9ea9c077 100644
--- a/TESTING/LIN/zdrvsyx.f
+++ b/TESTING/LIN/zdrvsyx.f
@@ -641,7 +641,7 @@
*
* Check the error code from ZSYSVXX.
*
- IF( INFO.NE.K ) THEN
+ IF( INFO.NE.K .AND. INFO.LE.N ) THEN
CALL ALAERH( PATH, 'ZSYSVXX', INFO, K,
$ FACT // UPLO, N, N, -1, -1, NRHS, IMAT, NFAIL,
$ NERRS, NOUT )
diff --git a/TESTING/LIN/zerrhex.f b/TESTING/LIN/zerrhex.f
index 34148934..7dafede0 100644
--- a/TESTING/LIN/zerrhex.f
+++ b/TESTING/LIN/zerrhex.f
@@ -280,12 +280,12 @@
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
CALL CHKXER( 'ZHERFSX', INFOT, NOUT, LERR, OK )
- INFOT = 11
+ INFOT = 12
CALL ZHERFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
CALL CHKXER( 'ZHERFSX', INFOT, NOUT, LERR, OK )
- INFOT = 13
+ INFOT = 14
CALL ZHERFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
diff --git a/TESTING/LIN/zerrsyx.f b/TESTING/LIN/zerrsyx.f
index a7c7bf8f..3da57aea 100644
--- a/TESTING/LIN/zerrsyx.f
+++ b/TESTING/LIN/zerrsyx.f
@@ -279,12 +279,12 @@
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
CALL CHKXER( 'ZSYRFSX', INFOT, NOUT, LERR, OK )
- INFOT = 11
+ INFOT = 12
CALL ZSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
CALL CHKXER( 'ZSYRFSX', INFOT, NOUT, LERR, OK )
- INFOT = 13
+ INFOT = 14
CALL ZSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1,
$ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
$ PARAMS, W, R, INFO )
generated by cgit v1.2.3 (git 2.25.1) at 2024-08-24 16:13:52 +0000