diff options
author | Nick Papior <nickpapior@gmail.com> | 2016-09-18 20:11:41 +0200 |
---|---|---|
committer | Nick Papior <nickpapior@gmail.com> | 2016-09-18 20:11:41 +0200 |
commit | 6e44a0335285d6876b87bee32d65586272b0ec8d (patch) | |
tree | 1a93e147a52dd51a48f4fbaea2c59331f311889a | |
parent | 87c31223b1a90302bf75ee3f6f58c84233bf5cec (diff) | |
download | lapack-6e44a0335285d6876b87bee32d65586272b0ec8d.tar.gz lapack-6e44a0335285d6876b87bee32d65586272b0ec8d.tar.bz2 lapack-6e44a0335285d6876b87bee32d65586272b0ec8d.zip |
test: added N<0 test for *TREXC
Per the previous commit and Julien, this commit came.
Also added documentation of how arguments are tracked in case N==0.
Signed-off-by: Nick Papior <nickpapior@gmail.com>
-rw-r--r-- | SRC/ctrexc.f | 1 | ||||
-rw-r--r-- | SRC/dtrexc.f | 1 | ||||
-rw-r--r-- | SRC/strexc.f | 1 | ||||
-rw-r--r-- | SRC/ztrexc.f | 1 | ||||
-rw-r--r-- | TESTING/EIG/cerrec.f | 5 | ||||
-rw-r--r-- | TESTING/EIG/derrec.f | 5 | ||||
-rw-r--r-- | TESTING/EIG/serrec.f | 5 | ||||
-rw-r--r-- | TESTING/EIG/zerrec.f | 5 |
8 files changed, 20 insertions, 4 deletions
diff --git a/SRC/ctrexc.f b/SRC/ctrexc.f index 8835a543..1a47a170 100644 --- a/SRC/ctrexc.f +++ b/SRC/ctrexc.f @@ -57,6 +57,7 @@ *> \verbatim *> N is INTEGER *> The order of the matrix T. N >= 0. +*> If N == 0 arguments ILST and IFST may be any value. *> \endverbatim *> *> \param[in,out] T diff --git a/SRC/dtrexc.f b/SRC/dtrexc.f index 4644fe20..84e0443e 100644 --- a/SRC/dtrexc.f +++ b/SRC/dtrexc.f @@ -63,6 +63,7 @@ *> \verbatim *> N is INTEGER *> The order of the matrix T. N >= 0. +*> If N == 0 arguments ILST and IFST may be any value. *> \endverbatim *> *> \param[in,out] T diff --git a/SRC/strexc.f b/SRC/strexc.f index 535a281e..4a00de26 100644 --- a/SRC/strexc.f +++ b/SRC/strexc.f @@ -63,6 +63,7 @@ *> \verbatim *> N is INTEGER *> The order of the matrix T. N >= 0. +*> If N == 0 arguments ILST and IFST may be any value. *> \endverbatim *> *> \param[in,out] T diff --git a/SRC/ztrexc.f b/SRC/ztrexc.f index 1a320010..b603e9a5 100644 --- a/SRC/ztrexc.f +++ b/SRC/ztrexc.f @@ -57,6 +57,7 @@ *> \verbatim *> N is INTEGER *> The order of the matrix T. N >= 0. +*> If N == 0 arguments ILST and IFST may be any value. *> \endverbatim *> *> \param[in,out] T diff --git a/TESTING/EIG/cerrec.f b/TESTING/EIG/cerrec.f index fa476e00..3396e3d5 100644 --- a/TESTING/EIG/cerrec.f +++ b/TESTING/EIG/cerrec.f @@ -152,6 +152,9 @@ INFOT = 1 CALL CTREXC( 'X', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'CTREXC', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL CTREXC( 'N', -1, A, 1, B, 1, IFST, ILST, INFO ) + CALL CHKXER( 'CTREXC', INFOT, NOUT, LERR, OK ) INFOT = 4 ILST = 2 CALL CTREXC( 'N', 2, A, 1, B, 1, IFST, ILST, INFO ) @@ -177,7 +180,7 @@ ILST = 2 CALL CTREXC( 'V', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'CTREXC', INFOT, NOUT, LERR, OK ) - NT = NT + 7 + NT = NT + 8 * * Test CTRSNA * diff --git a/TESTING/EIG/derrec.f b/TESTING/EIG/derrec.f index 9697f57e..bbf23e34 100644 --- a/TESTING/EIG/derrec.f +++ b/TESTING/EIG/derrec.f @@ -152,6 +152,9 @@ INFOT = 1 CALL DTREXC( 'X', 1, A, 1, B, 1, IFST, ILST, WORK, INFO ) CALL CHKXER( 'DTREXC', INFOT, NOUT, LERR, OK ) + 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 CALL DTREXC( 'N', 2, A, 1, B, 1, IFST, ILST, WORK, INFO ) @@ -177,7 +180,7 @@ ILST = 2 CALL DTREXC( 'V', 1, A, 1, B, 1, IFST, ILST, WORK, INFO ) CALL CHKXER( 'DTREXC', INFOT, NOUT, LERR, OK ) - NT = NT + 7 + NT = NT + 8 * * Test DTRSNA * diff --git a/TESTING/EIG/serrec.f b/TESTING/EIG/serrec.f index dfefb286..60ed916d 100644 --- a/TESTING/EIG/serrec.f +++ b/TESTING/EIG/serrec.f @@ -152,6 +152,9 @@ INFOT = 1 CALL STREXC( 'X', 1, A, 1, B, 1, IFST, ILST, WORK, INFO ) CALL CHKXER( 'STREXC', INFOT, NOUT, LERR, OK ) + 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 CALL STREXC( 'N', 2, A, 1, B, 1, IFST, ILST, WORK, INFO ) @@ -177,7 +180,7 @@ ILST = 2 CALL STREXC( 'V', 1, A, 1, B, 1, IFST, ILST, WORK, INFO ) CALL CHKXER( 'STREXC', INFOT, NOUT, LERR, OK ) - NT = NT + 7 + NT = NT + 8 * * Test STRSNA * diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index 948f6eec..6c7cdcc9 100644 --- a/TESTING/EIG/zerrec.f +++ b/TESTING/EIG/zerrec.f @@ -152,6 +152,9 @@ INFOT = 1 CALL ZTREXC( 'X', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'ZTREXC', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL ZTREXC( 'N', -1, A, 1, B, 1, IFST, ILST, INFO ) + CALL CHKXER( 'ZTREXC', INFOT, NOUT, LERR, OK ) INFOT = 4 ILST = 2 CALL ZTREXC( 'N', 2, A, 1, B, 1, IFST, ILST, INFO ) @@ -177,7 +180,7 @@ ILST = 2 CALL ZTREXC( 'V', 1, A, 1, B, 1, IFST, ILST, INFO ) CALL CHKXER( 'ZTREXC', INFOT, NOUT, LERR, OK ) - NT = NT + 7 + NT = NT + 8 * * Test ZTRSNA * |