Skip to content

Commit ab92781

Browse files
dklyuchinskiydklyuchinskiy
committed
add test for error exit sytd2/hetd2
1 parent b1e25a3 commit ab92781

File tree

4 files changed

+67
-11
lines changed

4 files changed

+67
-11
lines changed

‎TESTING/EIG/cerrst.f

Lines changed: 16 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,7 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> CERRST tests the error exits for CHETRD, CUNGTR, CUNMTR, CHPTRD,
24+
*> CERRST tests the error exits for CHETRD, CHETD2, CUNGTR, CUNMTR, CHPTRD,
2525
*> CUNGTR, CUPMTR, CSTEQR, CSTEIN, CPTEQR, CHBTRD,
2626
*> CHEEV, CHEEVX, CHEEVD, CHBEV, CHBEVX, CHBEVD,
2727
*> CHPEV, CHPEVX, CHPEVD, and CSTEDC.
@@ -94,7 +94,7 @@ SUBROUTINE CERRST( PATH, NUNIT )
9494
EXTERNAL CHBEV, CHBEVD, CHBEVX, CHBTRD, CHEEV, CHEEVD,
9595
$ CHEEVR, CHEEVX, CHETRD, CHKXER, CHPEV, CHPEVD,
9696
$ CHPEVX, CHPTRD, CPTEQR, CSTEDC, CSTEIN, CSTEQR,
97-
$ CUNGTR, CUNMTR, CUPGTR, CUPMTR,
97+
$ CUNGTR, CUNMTR, CUPGTR, CUPMTR, CHETD2,
9898
$ CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
9999
$ CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
100100
$ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
@@ -156,6 +156,20 @@ SUBROUTINE CERRST( PATH, NUNIT )
156156
CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK )
157157
NT = NT + 4
158158
*
159+
* CHETD2
160+
*
161+
SRNAMT = 'CHETD2'
162+
INFOT = 1
163+
CALL CHETD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
164+
CALL CHKXER( 'CHETD2', INFOT, NOUT, LERR, OK )
165+
INFOT = 2
166+
CALL CHETD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
167+
CALL CHKXER( 'CHETD2', INFOT, NOUT, LERR, OK )
168+
INFOT = 4
169+
CALL CHETD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
170+
CALL CHKXER( 'CHETD2', INFOT, NOUT, LERR, OK )
171+
NT = NT + 3
172+
*
159173
* CHETRD_2STAGE
160174
*
161175
SRNAMT = 'CHETRD_2STAGE'

‎TESTING/EIG/derrst.f

Lines changed: 19 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -21,10 +21,10 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> DERRST tests the error exits for DSYTRD, DORGTR, DORMTR, DSPTRD,
25-
*> DOPGTR, DOPMTR, DSTEQR, SSTERF, SSTEBZ, SSTEIN, DPTEQR, DSBTRD,
26-
*> DSYEV, SSYEVX, SSYEVD, DSBEV, SSBEVX, SSBEVD,
27-
*> DSPEV, SSPEVX, SSPEVD, DSTEV, SSTEVX, SSTEVD, and SSTEDC.
24+
*> DERRST tests the error exits for DSYTRD, DSYTD2, DORGTR, DORMTR, DSPTRD,
25+
*> DOPGTR, DOPMTR, DSTEQR, DSTERF, DSTEBZ, DSTEIN, DPTEQR, DSBTRD,
26+
*> DSYEV, DSYEVX, DSYEVD, DSBEV, DSBEVX, DSBEVD,
27+
*> DSPEV, DSPEVX, DSPEVD, DSTEV, DSTEVX, DSTEVD, and DSTEDC.
2828
*> DSYEVD_2STAGE, DSYEVR_2STAGE, DSYEVX_2STAGE,
2929
*> DSYEV_2STAGE, DSBEV_2STAGE, DSBEVD_2STAGE,
3030
*> DSBEVX_2STAGE, DSYTRD_2STAGE, DSYTRD_SY2SB,
@@ -95,7 +95,7 @@ SUBROUTINE DERRST( PATH, NUNIT )
9595
$ DSBEV, DSBEVD, DSBEVX, DSBTRD, DSPEV, DSPEVD,
9696
$ DSPEVX, DSPTRD, DSTEBZ, DSTEDC, DSTEIN, DSTEQR,
9797
$ DSTERF, DSTEV, DSTEVD, DSTEVR, DSTEVX, DSYEV,
98-
$ DSYEVD, DSYEVR, DSYEVX, DSYTRD,
98+
$ DSYEVD, DSYEVR, DSYEVX, DSYTRD, DSYTD2,
9999
$ DSYEVD_2STAGE, DSYEVR_2STAGE, DSYEVX_2STAGE,
100100
$ DSYEV_2STAGE, DSBEV_2STAGE, DSBEVD_2STAGE,
101101
$ DSBEVX_2STAGE, DSYTRD_2STAGE, DSYTRD_SY2SB,
@@ -157,6 +157,20 @@ SUBROUTINE DERRST( PATH, NUNIT )
157157
CALL CHKXER( 'DSYTRD', INFOT, NOUT, LERR, OK )
158158
NT = NT + 4
159159
*
160+
* DSYTD2
161+
*
162+
SRNAMT = 'DSYTD2'
163+
INFOT = 1
164+
CALL DSYTD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
165+
CALL CHKXER( 'DSYTD2', INFOT, NOUT, LERR, OK )
166+
INFOT = 2
167+
CALL DSYTD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
168+
CALL CHKXER( 'DSYTD2', INFOT, NOUT, LERR, OK )
169+
INFOT = 4
170+
CALL DSYTD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
171+
CALL CHKXER( 'DSYTD2', INFOT, NOUT, LERR, OK )
172+
NT = NT + 3
173+
*
160174
* DSYTRD_2STAGE
161175
*
162176
SRNAMT = 'DSYTRD_2STAGE'

‎TESTING/EIG/serrst.f

Lines changed: 16 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,7 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> SERRST tests the error exits for SSYTRD, SORGTR, SORMTR, SSPTRD,
24+
*> SERRST tests the error exits for SSYTRD, SSYTD2, SORGTR, SORMTR, SSPTRD,
2525
*> SOPGTR, SOPMTR, SSTEQR, SSTERF, SSTEBZ, SSTEIN, SPTEQR, SSBTRD,
2626
*> SSYEV, SSYEVX, SSYEVD, SSBEV, SSBEVX, SSBEVD,
2727
*> SSPEV, SSPEVX, SSPEVD, SSTEV, SSTEVX, SSTEVD, and SSTEDC.
@@ -95,7 +95,7 @@ SUBROUTINE SERRST( PATH, NUNIT )
9595
$ SSBEV, SSBEVD, SSBEVX, SSBTRD, SSPEV, SSPEVD,
9696
$ SSPEVX, SSPTRD, SSTEBZ, SSTEDC, SSTEIN, SSTEQR,
9797
$ SSTERF, SSTEV, SSTEVD, SSTEVR, SSTEVX, SSYEV,
98-
$ SSYEVD, SSYEVR, SSYEVX, SSYTRD,
98+
$ SSYEVD, SSYEVR, SSYEVX, SSYTRD, SSYTD2,
9999
$ SSYEVD_2STAGE, SSYEVR_2STAGE, SSYEVX_2STAGE,
100100
$ SSYEV_2STAGE, SSBEV_2STAGE, SSBEVD_2STAGE,
101101
$ SSBEVX_2STAGE, SSYTRD_2STAGE, SSYTRD_SY2SB,
@@ -157,6 +157,20 @@ SUBROUTINE SERRST( PATH, NUNIT )
157157
CALL CHKXER( 'SSYTRD', INFOT, NOUT, LERR, OK )
158158
NT = NT + 4
159159
*
160+
* SSYTD2
161+
*
162+
SRNAMT = 'SSYTD2'
163+
INFOT = 1
164+
CALL SSYTD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
165+
CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK )
166+
INFOT = 2
167+
CALL SSYTD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
168+
CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK )
169+
INFOT = 4
170+
CALL SSYTD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
171+
CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK )
172+
NT = NT + 3
173+
*
160174
* SSYTRD_2STAGE
161175
*
162176
SRNAMT = 'SSYTRD_2STAGE'

‎TESTING/EIG/zerrst.f

Lines changed: 16 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@
2323
*>
2424
*> \verbatim
2525
*>
26-
*> ZERRST tests the error exits for ZHETRD, ZUNGTR, CUNMTR, ZHPTRD,
26+
*> ZERRST tests the error exits for ZHETRD, ZHETD2, ZUNGTR, CUNMTR, ZHPTRD,
2727
*> ZUNGTR, ZUPMTR, ZSTEQR, CSTEIN, ZPTEQR, ZHBTRD,
2828
*> ZHEEV, CHEEVX, CHEEVD, ZHBEV, CHBEVX, CHBEVD,
2929
*> ZHPEV, CHPEVX, CHPEVD, and ZSTEDC.
@@ -95,7 +95,7 @@ SUBROUTINE ZERRST( PATH, NUNIT )
9595
EXTERNAL CHKXER, ZHBEV, ZHBEVD, ZHBEVX, ZHBTRD, ZHEEV,
9696
$ ZHEEVD, ZHEEVR, ZHEEVX, ZHETRD, ZHPEV, ZHPEVD,
9797
$ ZHPEVX, ZHPTRD, ZPTEQR, ZSTEDC, ZSTEIN, ZSTEQR,
98-
$ ZUNGTR, ZUNMTR, ZUPGTR, ZUPMTR,
98+
$ ZUNGTR, ZUNMTR, ZUPGTR, ZUPMTR, ZHETD2,
9999
$ ZHEEVD_2STAGE, ZHEEVR_2STAGE, ZHEEVX_2STAGE,
100100
$ ZHEEV_2STAGE, ZHBEV_2STAGE, ZHBEVD_2STAGE,
101101
$ ZHBEVX_2STAGE, ZHETRD_2STAGE
@@ -156,6 +156,20 @@ SUBROUTINE ZERRST( PATH, NUNIT )
156156
CALL CHKXER( 'ZHETRD', INFOT, NOUT, LERR, OK )
157157
NT = NT + 4
158158
*
159+
* ZHETD2
160+
*
161+
SRNAMT = 'ZHETD2'
162+
INFOT = 1
163+
CALL ZHETD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
164+
CALL CHKXER( 'ZHETD2', INFOT, NOUT, LERR, OK )
165+
INFOT = 2
166+
CALL ZHETD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
167+
CALL CHKXER( 'ZHETD2', INFOT, NOUT, LERR, OK )
168+
INFOT = 4
169+
CALL ZHETD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
170+
CALL CHKXER( 'ZHETD2', INFOT, NOUT, LERR, OK )
171+
NT = NT + 3
172+
*
159173
* ZHETRD_2STAGE
160174
*
161175
SRNAMT = 'ZHETRD_2STAGE'

0 commit comments

Comments
 (0)