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 8835a54368ddbdef1986df8005f89194ed007c4b..1a47a170019764d3a39593d545311f881ee85180 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 4644fe208fea922ffb24d864bc9d91b48b6ae83b..84e0443ea7935be928c9b61b2e9d3f0c642a9ca5 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 535a281ee6a516743a284c1e6554c629e6c90383..4a00de261a37c91bddb4df181aa1c438fbc0acbd 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 1a3200108bb6ac570e3cdfc9682be9760df792ab..b603e9a501c99c5634b5c7f8d451b469f13d6433 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 fa476e008afc88566ee3fad6919d6bc6d28c9f17..3396e3d5b8dcf913b6ceb0900623d48730452fff 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 9697f57ec514f267a472f779f1a97ad4f148ece9..bbf23e34d5d3b3445e6f83bb72971091135d55af 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 dfefb286a23d7befd00210b6c26c1c215f5d51da..60ed916d4f41c34f109d48cec65b929b3207a81d 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 948f6eecf0d6ea618cb358a632bfae07e155644d..6c7cdcc974693afa0ad6ed6b5708401f2a6af02a 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
 *