summaryrefslogtreecommitdiff
path: root/TESTING
diff options
context:
space:
mode:
authorlangou <julien.langou@ucdenver.edu>2016-09-19 08:08:56 +0200
committerGitHub <noreply@github.com>2016-09-19 08:08:56 +0200
commit5feb8b3f6dda40e0f9d1d72965be6efdbddafb01 (patch)
tree110d7da78820fca802407e727700734b18d075e9 /TESTING
parentf50a461085ea94f972f05ea03d15fc56c4b09b74 (diff)
parent6e44a0335285d6876b87bee32d65586272b0ec8d (diff)
downloadlapack-5feb8b3f6dda40e0f9d1d72965be6efdbddafb01.tar.gz
lapack-5feb8b3f6dda40e0f9d1d72965be6efdbddafb01.tar.bz2
lapack-5feb8b3f6dda40e0f9d1d72965be6efdbddafb01.zip
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.f4
-rw-r--r--TESTING/EIG/derrec.f6
-rw-r--r--TESTING/EIG/serrec.f4
-rw-r--r--TESTING/EIG/zerrec.f6
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