diff options
| author | julie <julielangou@users.noreply.github.com> | 2014-11-15 05:01:47 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2014-11-15 05:01:47 +0000 |
| commit | 9d195d0eaf3abee477e80b4c92fd851cad80ec15 (patch) | |
| tree | 73cb6be731fbcec5ce210cc9b9ab8456701a17c2 /TESTING | |
| parent | d31967742f9ba7b749009e94d81d39f1c573277c (diff) | |
| download | lapack-9d195d0eaf3abee477e80b4c92fd851cad80ec15.tar.gz lapack-9d195d0eaf3abee477e80b4c92fd851cad80ec15.tar.bz2 lapack-9d195d0eaf3abee477e80b4c92fd851cad80ec15.zip | |
Bug Fix form Elena (Oracle) - Correct test of error exits
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/LIN/cerrpox.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/derrpox.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/serrpox.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zerrpox.f | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/TESTING/LIN/cerrpox.f b/TESTING/LIN/cerrpox.f index cbace149..e65816d9 100644 --- a/TESTING/LIN/cerrpox.f +++ b/TESTING/LIN/cerrpox.f @@ -238,7 +238,7 @@ $ PARAMS, W, R, INFO ) CALL CHKXER( 'CPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL CPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1, + CALL CPORFSX( 'U', '/', -1, 0, A, 1, AF, 1, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CPORFSX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/LIN/derrpox.f b/TESTING/LIN/derrpox.f index 1aadabcf..9d9ac406 100644 --- a/TESTING/LIN/derrpox.f +++ b/TESTING/LIN/derrpox.f @@ -238,7 +238,7 @@ $ PARAMS, W, IW, INFO ) CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL DPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1, + CALL DPORFSX( 'U', "/", -1, 0, A, 1, AF, 1, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, IW, INFO ) CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/LIN/serrpox.f b/TESTING/LIN/serrpox.f index f37dcee4..537a9401 100644 --- a/TESTING/LIN/serrpox.f +++ b/TESTING/LIN/serrpox.f @@ -238,7 +238,7 @@ $ PARAMS, W, IW, INFO ) CALL CHKXER( 'SPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL SPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1, + CALL SPORFSX( 'U', "/", -1, 0, A, 1, AF, 1, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, IW, INFO ) CALL CHKXER( 'SPORFSX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/LIN/zerrpox.f b/TESTING/LIN/zerrpox.f index f82b6600..75000db0 100644 --- a/TESTING/LIN/zerrpox.f +++ b/TESTING/LIN/zerrpox.f @@ -240,7 +240,7 @@ $ PARAMS, W, R, INFO ) CALL CHKXER( 'ZPORFSX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL ZPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1, + CALL ZPORFSX( 'U', "/", -1, 0, A, 1, AF, 1, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'ZPORFSX', INFOT, NOUT, LERR, OK ) |