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>

diff --git a/SRC/ctrexc.f b/SRC/ctrexc.f
index 8835a54..1a47a17 100644 (file)
--- 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 4644fe2..84e0443 100644 (file)
--- 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 535a281..4a00de2 100644 (file)
--- 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 1a32001..b603e9a 100644 (file)
--- 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 fa476e0..3396e3d 100644 (file)
--- 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 9697f57..bbf23e3 100644 (file)
--- 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 dfefb28..60ed916 100644 (file)
--- 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 948f6ee..6c7cdcc 100644 (file)
--- 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
 *