diff options
Diffstat (limited to 'TESTING/EIG/zerrec.f')
-rw-r--r-- | TESTING/EIG/zerrec.f | 5 |
1 files changed, 4 insertions, 1 deletions
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 * |