diff options
| author | langou <julien.langou@ucdenver.edu> | 2016-09-19 08:08:56 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-09-19 08:08:56 +0200 |
| commit | 5feb8b3f6dda40e0f9d1d72965be6efdbddafb01 (patch) | |
| tree | 110d7da78820fca802407e727700734b18d075e9 /TESTING | |
| parent | f50a461085ea94f972f05ea03d15fc56c4b09b74 (diff) | |
| parent | 6e44a0335285d6876b87bee32d65586272b0ec8d (diff) | |
Merge pull request #54 from zerothi/test-fail
bug: fixes always failing tests for *TREXC which was erroneous tests
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/EIG/cerrec.f | 4 | ||||
| -rw-r--r-- | TESTING/EIG/derrec.f | 6 | ||||
| -rw-r--r-- | TESTING/EIG/serrec.f | 4 | ||||
| -rw-r--r-- | TESTING/EIG/zerrec.f | 6 |
4 files changed, 10 insertions, 10 deletions
diff --git a/TESTING/EIG/cerrec.f b/TESTING/EIG/cerrec.f index 90ada2f7..3396e3d5 100644 --- a/TESTING/EIG/cerrec.f +++ b/TESTING/EIG/cerrec.f @@ -152,8 +152,8 @@ INFOT = 1 CALL CTREXC( 'X', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'CTREXC', INFOT, NOUT, LERR, OK ) - INFOT = 7 - CALL CTREXC( 'N', 0, A, 1, B, 1, IFST, ILST, INFO ) + INFOT = 2 + CALL CTREXC( 'N', -1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'CTREXC', INFOT, NOUT, LERR, OK ) INFOT = 4 ILST = 2 diff --git a/TESTING/EIG/derrec.f b/TESTING/EIG/derrec.f index 9fc539c8..bbf23e34 100644 --- a/TESTING/EIG/derrec.f +++ b/TESTING/EIG/derrec.f @@ -23,7 +23,7 @@ *> *> DERREC tests the error exits for the routines for eigen- condition *> estimation for DOUBLE PRECISION matrices: -*> DTRSYL, STREXC, STRSNA and STRSEN. +*> DTRSYL, DTREXC, DTRSNA and DTRSEN. *> \endverbatim * * Arguments: @@ -152,8 +152,8 @@ INFOT = 1 CALL DTREXC( 'X', 1, A, 1, B, 1, IFST, ILST, WORK, INFO ) CALL CHKXER( 'DTREXC', INFOT, NOUT, LERR, OK ) - INFOT = 7 - CALL DTREXC( 'N', 0, A, 1, B, 1, IFST, ILST, WORK, INFO ) + INFOT = 2 + CALL DTREXC( 'N', -1, A, 1, B, 1, IFST, ILST, WORK, INFO ) CALL CHKXER( 'DTREXC', INFOT, NOUT, LERR, OK ) INFOT = 4 ILST = 2 diff --git a/TESTING/EIG/serrec.f b/TESTING/EIG/serrec.f index 25980ad9..60ed916d 100644 --- a/TESTING/EIG/serrec.f +++ b/TESTING/EIG/serrec.f @@ -152,8 +152,8 @@ INFOT = 1 CALL STREXC( 'X', 1, A, 1, B, 1, IFST, ILST, WORK, INFO ) CALL CHKXER( 'STREXC', INFOT, NOUT, LERR, OK ) - INFOT = 7 - CALL STREXC( 'N', 0, A, 1, B, 1, IFST, ILST, WORK, INFO ) + INFOT = 2 + CALL STREXC( 'N', -1, A, 1, B, 1, IFST, ILST, WORK, INFO ) CALL CHKXER( 'STREXC', INFOT, NOUT, LERR, OK ) INFOT = 4 ILST = 2 diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index 7ea308b2..6c7cdcc9 100644 --- a/TESTING/EIG/zerrec.f +++ b/TESTING/EIG/zerrec.f @@ -23,7 +23,7 @@ *> *> ZERREC tests the error exits for the routines for eigen- condition *> estimation for DOUBLE PRECISION matrices: -*> ZTRSYL, CTREXC, CTRSNA and CTRSEN. +*> ZTRSYL, ZTREXC, ZTRSNA and ZTRSEN. *> \endverbatim * * Arguments: @@ -152,8 +152,8 @@ INFOT = 1 CALL ZTREXC( 'X', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'ZTREXC', INFOT, NOUT, LERR, OK ) - INFOT = 7 - CALL ZTREXC( 'N', 0, A, 1, B, 1, IFST, ILST, INFO ) + INFOT = 2 + CALL ZTREXC( 'N', -1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'ZTREXC', INFOT, NOUT, LERR, OK ) INFOT = 4 ILST = 2 |