Bug Fix form Elena (Oracle) - Correct test of error exits

diff --git a/TESTING/LIN/cerrpox.f b/TESTING/LIN/cerrpox.f
index cbace1491cfdddd723f476bd9cd905660b025456..e65816d92dcdfa0f79c1483eabdc45052ac2e798 100644 (file)
--- 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 1aadabcf0f0ce2088a899ca5e57d7d9a90649fdd..9d9ac406d970a91ed91a6b8dea6cf9470b19ce8c 100644 (file)
--- 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 f37dcee4c0043f62d8f7285793c68a74f157244c..537a9401e7b76300a614183c0b97694d108f1614 100644 (file)
--- 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 f82b6600fb6f5d1d18d83f6ceffc8eed10e2a729..75000db0550c6f9cc4d782658caee3858f4a56e4 100644 (file)
--- 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 )