diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-03-03 23:13:58 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-03-03 23:13:58 +0000 |
| commit | adc144b1c153d1ba27490a5363443257603e8adf (patch) | |
| tree | d6257b456a9642a821d5cd3aca8e280838f8d09f /TESTING | |
| parent | 779f0da239571c4e759bcf61c1e07cc65298f169 (diff) | |
| download | lapack-adc144b1c153d1ba27490a5363443257603e8adf.tar.gz lapack-adc144b1c153d1ba27490a5363443257603e8adf.tar.bz2 lapack-adc144b1c153d1ba27490a5363443257603e8adf.zip | |
Correct and Add Error exit tests for *errtz
Test the case where N=M (Workspace should be 1), so put LWORK at 0 to make it failed
Test the case where N!=M (Workspace should be more than MAX(1,M)), so put M=2, N=3 ans LWORK at 1 to make it failed
Correct some typos in [dz]drgsx testings.
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/EIG/ddrgsx.f | 6 | ||||
| -rw-r--r-- | TESTING/EIG/zdrgsx.f | 6 | ||||
| -rw-r--r-- | TESTING/LIN/cerrtz.f | 5 | ||||
| -rw-r--r-- | TESTING/LIN/derrtz.f | 5 | ||||
| -rw-r--r-- | TESTING/LIN/serrtz.f | 5 | ||||
| -rw-r--r-- | TESTING/LIN/zerrtz.f | 5 |
6 files changed, 22 insertions, 10 deletions
diff --git a/TESTING/EIG/ddrgsx.f b/TESTING/EIG/ddrgsx.f index 2716ded3..30ff5df9 100644 --- a/TESTING/EIG/ddrgsx.f +++ b/TESTING/EIG/ddrgsx.f @@ -590,7 +590,7 @@ * print a header to the data file. * IF( NERRS.EQ.0 ) THEN - WRITE( NOUT, FMT = 9995 )'SGX' + WRITE( NOUT, FMT = 9995 )'DGX' * * Matrix types * @@ -807,7 +807,7 @@ * print a header to the data file. * IF( NERRS.EQ.0 ) THEN - WRITE( NOUT, FMT = 9995 )'SGX' + WRITE( NOUT, FMT = 9995 )'DGX' * * Matrix types * @@ -837,7 +837,7 @@ * * Summary * - CALL ALASVM( 'SGX', NOUT, NERRS, NTESTT, 0 ) + CALL ALASVM( 'DGX', NOUT, NERRS, NTESTT, 0 ) * WORK( 1 ) = MAXWRK * diff --git a/TESTING/EIG/zdrgsx.f b/TESTING/EIG/zdrgsx.f index e224ccf6..7b826244 100644 --- a/TESTING/EIG/zdrgsx.f +++ b/TESTING/EIG/zdrgsx.f @@ -559,7 +559,7 @@ * print a header to the data file. * IF( NERRS.EQ.0 ) THEN - WRITE( NOUT, FMT = 9996 )'CGX' + WRITE( NOUT, FMT = 9996 )'ZGX' * * Matrix types * @@ -744,7 +744,7 @@ * print a header to the data file. * IF( NERRS.EQ.0 ) THEN - WRITE( NOUT, FMT = 9996 )'CGX' + WRITE( NOUT, FMT = 9996 )'ZGX' * * Matrix types * @@ -774,7 +774,7 @@ * * Summary * - CALL ALASVM( 'CGX', NOUT, NERRS, NTESTT, 0 ) + CALL ALASVM( 'ZGX', NOUT, NERRS, NTESTT, 0 ) * WORK( 1 ) = MAXWRK * diff --git a/TESTING/LIN/cerrtz.f b/TESTING/LIN/cerrtz.f index 300a86dd..1be485f8 100644 --- a/TESTING/LIN/cerrtz.f +++ b/TESTING/LIN/cerrtz.f @@ -98,7 +98,10 @@ CALL CTZRZF( 2, 2, A, 1, TAU, W, 1, INFO ) CALL CHKXER( 'CTZRZF', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL CTZRZF( 2, 2, A, 2, TAU, W, 1, INFO ) + CALL CTZRZF( 2, 2, A, 2, TAU, W, 0, INFO ) + CALL CHKXER( 'CTZRZF', INFOT, NOUT, LERR, OK ) + INFOT = 7 + CALL CTZRZF( 2, 3, A, 2, TAU, W, 1, INFO ) CALL CHKXER( 'CTZRZF', INFOT, NOUT, LERR, OK ) END IF * diff --git a/TESTING/LIN/derrtz.f b/TESTING/LIN/derrtz.f index f3c6eb89..84cd73b9 100644 --- a/TESTING/LIN/derrtz.f +++ b/TESTING/LIN/derrtz.f @@ -95,7 +95,10 @@ CALL DTZRZF( 2, 2, A, 1, TAU, W, 1, INFO ) CALL CHKXER( 'DTZRZF', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL DTZRZF( 2, 2, A, 2, TAU, W, 1, INFO ) + CALL DTZRZF( 2, 2, A, 2, TAU, W, 0, INFO ) + CALL CHKXER( 'DTZRZF', INFOT, NOUT, LERR, OK ) + INFOT = 7 + CALL DTZRZF( 2, 3, A, 2, TAU, W, 1, INFO ) CALL CHKXER( 'DTZRZF', INFOT, NOUT, LERR, OK ) END IF * diff --git a/TESTING/LIN/serrtz.f b/TESTING/LIN/serrtz.f index 9731931b..f303de27 100644 --- a/TESTING/LIN/serrtz.f +++ b/TESTING/LIN/serrtz.f @@ -95,7 +95,10 @@ CALL STZRZF( 2, 2, A, 1, TAU, W, 1, INFO ) CALL CHKXER( 'STZRZF', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL STZRZF( 2, 2, A, 2, TAU, W, 1, INFO ) + CALL STZRZF( 2, 2, A, 2, TAU, W, 0, INFO ) + CALL CHKXER( 'STZRZF', INFOT, NOUT, LERR, OK ) + INFOT = 7 + CALL STZRZF( 2, 3, A, 2, TAU, W, 1, INFO ) CALL CHKXER( 'STZRZF', INFOT, NOUT, LERR, OK ) END IF * diff --git a/TESTING/LIN/zerrtz.f b/TESTING/LIN/zerrtz.f index ac3b9f13..25fbb7fd 100644 --- a/TESTING/LIN/zerrtz.f +++ b/TESTING/LIN/zerrtz.f @@ -98,7 +98,10 @@ CALL ZTZRZF( 2, 2, A, 1, TAU, W, 1, INFO ) CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL ZTZRZF( 2, 2, A, 2, TAU, W, 1, INFO ) + CALL ZTZRZF( 2, 2, A, 2, TAU, W, 0, INFO ) + CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK ) + INFOT = 7 + CALL ZTZRZF( 2, 3, A, 2, TAU, W, 1, INFO ) CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK ) END IF * |