Browse Source
Merge pull request #3243 from martin-frbg/lapack564
Fix spurious error exit test failures in the ?chktsqr tests (LAPACK564)
tags/v0.3.16^2
Martin Kroeker
GitHub
5 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with
8 additions and
0 deletions
-
lapack-netlib/TESTING/LIN/cchktsqr.f
-
lapack-netlib/TESTING/LIN/dchktsqr.f
-
lapack-netlib/TESTING/LIN/schktsqr.f
-
lapack-netlib/TESTING/LIN/zchktsqr.f
|
|
@@ -159,6 +159,8 @@ |
|
|
* |
|
|
* |
|
|
* Test the error exits |
|
|
* Test the error exits |
|
|
* |
|
|
* |
|
|
|
|
|
CALL XLAENV( 1, 0 ) |
|
|
|
|
|
CALL XLAENV( 2, 0 ) |
|
|
IF( TSTERR ) CALL CERRTSQR( PATH, NOUT ) |
|
|
IF( TSTERR ) CALL CERRTSQR( PATH, NOUT ) |
|
|
INFOT = 0 |
|
|
INFOT = 0 |
|
|
* |
|
|
* |
|
|
|
|
|
@@ -159,6 +159,8 @@ |
|
|
* |
|
|
* |
|
|
* Test the error exits |
|
|
* Test the error exits |
|
|
* |
|
|
* |
|
|
|
|
|
CALL XLAENV( 1, 0 ) |
|
|
|
|
|
CALL XLAENV( 2, 0 ) |
|
|
IF( TSTERR ) CALL DERRTSQR( PATH, NOUT ) |
|
|
IF( TSTERR ) CALL DERRTSQR( PATH, NOUT ) |
|
|
INFOT = 0 |
|
|
INFOT = 0 |
|
|
* |
|
|
* |
|
|
|
|
|
@@ -159,6 +159,8 @@ |
|
|
* |
|
|
* |
|
|
* Test the error exits |
|
|
* Test the error exits |
|
|
* |
|
|
* |
|
|
|
|
|
CALL XLAENV( 1, 0 ) |
|
|
|
|
|
CALL XLAENV( 2, 0 ) |
|
|
IF( TSTERR ) CALL SERRTSQR( PATH, NOUT ) |
|
|
IF( TSTERR ) CALL SERRTSQR( PATH, NOUT ) |
|
|
INFOT = 0 |
|
|
INFOT = 0 |
|
|
* |
|
|
* |
|
|
|
|
|
@@ -159,6 +159,8 @@ |
|
|
* |
|
|
* |
|
|
* Test the error exits |
|
|
* Test the error exits |
|
|
* |
|
|
* |
|
|
|
|
|
CALL XLAENV( 1, 0 ) |
|
|
|
|
|
CALL XLAENV( 2, 0 ) |
|
|
IF( TSTERR ) CALL ZERRTSQR( PATH, NOUT ) |
|
|
IF( TSTERR ) CALL ZERRTSQR( PATH, NOUT ) |
|
|
INFOT = 0 |
|
|
INFOT = 0 |
|
|
* |
|
|
* |
|
|
|
