Skip to content

Commit aa43f30

Browse files
dklyuchinskiydklyuchinskiy
committed
add test for error exit gehd2
1 parent 86d01a7 commit aa43f30

File tree

4 files changed

+103
-11
lines changed

4 files changed

+103
-11
lines changed

‎TESTING/EIG/cerrhs.f

Lines changed: 26 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -21,8 +21,8 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> CERRHS tests the error exits for CGEBAK, CGEBAL, CGEHRD, CUNGHR,
25-
*> CUNMHR, CHSEQR, CHSEIN, CTREVC, and CTREVC3.
24+
*> CERRHS tests the error exits for CGEBAK, CGEBAL, CGEHRD, CGEHD2,
25+
*> CUNGHR, CUNMHR, CHSEQR, CHSEIN, CTREVC, and CTREVC3.
2626
*> \endverbatim
2727
*
2828
* Arguments:
@@ -86,7 +86,7 @@ SUBROUTINE CERRHS( PATH, NUNIT )
8686
* ..
8787
* .. External Subroutines ..
8888
EXTERNAL CHKXER, CGEBAK, CGEBAL, CGEHRD, CHSEIN, CHSEQR,
89-
$ CUNGHR, CUNMHR, CTREVC, CTREVC3
89+
$ CUNGHR, CUNMHR, CTREVC, CTREVC3, CGEHD2
9090
* ..
9191
* .. Intrinsic Functions ..
9292
INTRINSIC REAL
@@ -193,6 +193,29 @@ SUBROUTINE CERRHS( PATH, NUNIT )
193193
CALL CHKXER( 'CGEHRD', INFOT, NOUT, LERR, OK )
194194
NT = NT + 7
195195
*
196+
* CGEHD2
197+
*
198+
SRNAMT = 'CGEHD2'
199+
INFOT = 1
200+
CALL CGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
201+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
202+
INFOT = 2
203+
CALL CGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
204+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
205+
INFOT = 2
206+
CALL CGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
207+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
208+
INFOT = 3
209+
CALL CGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
210+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
211+
INFOT = 3
212+
CALL CGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
213+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
214+
INFOT = 5
215+
CALL CGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
216+
CALL CHKXER( 'CGEHD2', INFOT, NOUT, LERR, OK )
217+
NT = NT + 6
218+
*
196219
* CUNGHR
197220
*
198221
SRNAMT = 'CUNGHR'

‎TESTING/EIG/derrhs.f

Lines changed: 26 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -21,8 +21,8 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> DERRHS tests the error exits for DGEBAK, DGEBAL, DGEHRD, DORGHR,
25-
*> DORMHR, DHSEQR, DHSEIN, DTREVC, and DTREVC3.
24+
*> DERRHS tests the error exits for DGEBAK, DGEBAL, DGEHRD, DGEHD2,
25+
*> DORGHR, DORMHR, DHSEQR, DHSEIN, DTREVC, and DTREVC3.
2626
*> \endverbatim
2727
*
2828
* Arguments:
@@ -86,7 +86,7 @@ SUBROUTINE DERRHS( PATH, NUNIT )
8686
* ..
8787
* .. External Subroutines ..
8888
EXTERNAL CHKXER, DGEBAK, DGEBAL, DGEHRD, DHSEIN, DHSEQR,
89-
$ DORGHR, DORMHR, DTREVC, DTREVC3
89+
$ DORGHR, DORMHR, DTREVC, DTREVC3, DGEHD2
9090
* ..
9191
* .. Intrinsic Functions ..
9292
INTRINSIC DBLE
@@ -194,6 +194,29 @@ SUBROUTINE DERRHS( PATH, NUNIT )
194194
CALL CHKXER( 'DGEHRD', INFOT, NOUT, LERR, OK )
195195
NT = NT + 7
196196
*
197+
* DGEHD2
198+
*
199+
SRNAMT = 'DGEHD2'
200+
INFOT = 1
201+
CALL DGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
202+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
203+
INFOT = 2
204+
CALL DGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
205+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
206+
INFOT = 2
207+
CALL DGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
208+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
209+
INFOT = 3
210+
CALL DGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
211+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
212+
INFOT = 3
213+
CALL DGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
214+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
215+
INFOT = 5
216+
CALL DGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
217+
CALL CHKXER( 'DGEHD2', INFOT, NOUT, LERR, OK )
218+
NT = NT + 6
219+
*
197220
* DORGHR
198221
*
199222
SRNAMT = 'DORGHR'

‎TESTING/EIG/serrhs.f

Lines changed: 26 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -21,8 +21,8 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> SERRHS tests the error exits for SGEBAK, SGEBAL, SGEHRD, SORGHR,
25-
*> SORMHR, SHSEQR, SHSEIN, STREVC, and STREVC3.
24+
*> SERRHS tests the error exits for SGEBAK, SGEBAL, SGEHRD, SGEHD2,
25+
*> SORGHR, SORMHR, SHSEQR, SHSEIN, STREVC, and STREVC3.
2626
*> \endverbatim
2727
*
2828
* Arguments:
@@ -85,7 +85,7 @@ SUBROUTINE SERRHS( PATH, NUNIT )
8585
* ..
8686
* .. External Subroutines ..
8787
EXTERNAL CHKXER, SGEBAK, SGEBAL, SGEHRD, SHSEIN, SHSEQR,
88-
$ SORGHR, SORMHR, STREVC, STREVC3
88+
$ SORGHR, SORMHR, STREVC, STREVC3, SGEHD2
8989
* ..
9090
* .. Intrinsic Functions ..
9191
INTRINSIC REAL
@@ -193,6 +193,29 @@ SUBROUTINE SERRHS( PATH, NUNIT )
193193
CALL CHKXER( 'SGEHRD', INFOT, NOUT, LERR, OK )
194194
NT = NT + 7
195195
*
196+
* SGEHD2
197+
*
198+
SRNAMT = 'SGEHD2'
199+
INFOT = 1
200+
CALL SGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
201+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
202+
INFOT = 2
203+
CALL SGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
204+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
205+
INFOT = 2
206+
CALL SGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
207+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
208+
INFOT = 3
209+
CALL SGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
210+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
211+
INFOT = 3
212+
CALL SGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
213+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
214+
INFOT = 5
215+
CALL SGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
216+
CALL CHKXER( 'SGEHD2', INFOT, NOUT, LERR, OK )
217+
NT = NT + 6
218+
*
196219
* SORGHR
197220
*
198221
SRNAMT = 'SORGHR'

‎TESTING/EIG/zerrhs.f

Lines changed: 25 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -21,8 +21,8 @@
2121
*>
2222
*> \verbatim
2323
*>
24-
*> ZERRHS tests the error exits for ZGEBAK, ZGEBAL, ZGEHRD, ZUNGHR,
25-
*> ZUNMHR, ZHSEQR, ZHSEIN, ZTREVC, and ZTREVC3.
24+
*> ZERRHS tests the error exits for ZGEBAK, ZGEBAL, ZGEHRD, ZGEHD2,
25+
*> ZUNGHR, ZUNMHR, ZHSEQR, ZHSEIN, ZTREVC, and ZTREVC3.
2626
*> \endverbatim
2727
*
2828
* Arguments:
@@ -193,6 +193,29 @@ SUBROUTINE ZERRHS( PATH, NUNIT )
193193
CALL CHKXER( 'ZGEHRD', INFOT, NOUT, LERR, OK )
194194
NT = NT + 7
195195
*
196+
* ZGEHD2
197+
*
198+
SRNAMT = 'ZGEHD2'
199+
INFOT = 1
200+
CALL ZGEHD2( -1, 1, 1, A, 1, TAU, W, INFO )
201+
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
202+
INFOT = 2
203+
CALL ZGEHD2( 0, 0, 0, A, 1, TAU, W, INFO )
204+
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
205+
INFOT = 2
206+
CALL ZGEHD2( 0, 2, 0, A, 1, TAU, W, INFO )
207+
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
208+
INFOT = 3
209+
CALL ZGEHD2( 1, 1, 0, A, 1, TAU, W, INFO )
210+
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
211+
INFOT = 3
212+
CALL ZGEHD2( 0, 1, 1, A, 1, TAU, W, INFO )
213+
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
214+
INFOT = 5
215+
CALL ZGEHD2( 2, 1, 1, A, 1, TAU, W, INFO )
216+
CALL CHKXER( 'ZGEHD2', INFOT, NOUT, LERR, OK )
217+
NT = NT + 6
218+
*
196219
* ZUNGHR
197220
*
198221
SRNAMT = 'ZUNGHR'

0 commit comments

Comments
 (0)