Fix spurious error exit test failures in the ?chktsqr tests (LAPACK564)

martin-frbg · web-flow · commit 3a53207cc9f5 · 2021-05-22T14:29:45.000+02:00
diff --git a/lapack-netlib/TESTING/LIN/cchktsqr.f b/lapack-netlib/TESTING/LIN/cchktsqr.f
@@ -159,6 +159,8 @@ SUBROUTINE CCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
 *
 *     Test the error exits
 *
+      CALL XLAENV( 1, 0 )
+      CALL XLAENV( 2, 0 ) 
       IF( TSTERR ) CALL CERRTSQR( PATH, NOUT )
       INFOT = 0
 *
diff --git a/lapack-netlib/TESTING/LIN/dchktsqr.f b/lapack-netlib/TESTING/LIN/dchktsqr.f
@@ -159,6 +159,8 @@ SUBROUTINE DCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
 *
 *     Test the error exits
 *
+      CALL XLAENV( 1, 0 )
+      CALL XLAENV( 2, 0 )            
       IF( TSTERR ) CALL DERRTSQR( PATH, NOUT )
       INFOT = 0
 *
diff --git a/lapack-netlib/TESTING/LIN/schktsqr.f b/lapack-netlib/TESTING/LIN/schktsqr.f
@@ -159,6 +159,8 @@ SUBROUTINE SCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
 *
 *     Test the error exits
 *
+      CALL XLAENV( 1, 0 )
+      CALL XLAENV( 2, 0 ) 
       IF( TSTERR ) CALL SERRTSQR( PATH, NOUT )
       INFOT = 0
 *
diff --git a/lapack-netlib/TESTING/LIN/zchktsqr.f b/lapack-netlib/TESTING/LIN/zchktsqr.f
@@ -159,6 +159,8 @@ SUBROUTINE ZCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
 *
 *     Test the error exits
 *
+      CALL XLAENV( 1, 0 )
+      CALL XLAENV( 2, 0 ) 
       IF( TSTERR ) CALL ZERRTSQR( PATH, NOUT )
       INFOT = 0
 *

Original file line number	Diff line number	Diff line change
`@@ -159,6 +159,8 @@ SUBROUTINE CCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,`
`159`	`159`	`*`
`160`	`160`	`* Test the error exits`
`161`	`161`	`*`
	`162`	`+ CALL XLAENV( 1, 0 )`
	`163`	`+ CALL XLAENV( 2, 0 )`
`162`	`164`	`IF( TSTERR ) CALL CERRTSQR( PATH, NOUT )`
`163`	`165`	`INFOT = 0`
`164`	`166`	`*`
Original file line number	Diff line number	Diff line change
`@@ -159,6 +159,8 @@ SUBROUTINE DCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,`
`159`	`159`	`*`
`160`	`160`	`* Test the error exits`
`161`	`161`	`*`
	`162`	`+ CALL XLAENV( 1, 0 )`
	`163`	`+ CALL XLAENV( 2, 0 )`
`162`	`164`	`IF( TSTERR ) CALL DERRTSQR( PATH, NOUT )`
`163`	`165`	`INFOT = 0`
`164`	`166`	`*`
Original file line number	Diff line number	Diff line change
`@@ -159,6 +159,8 @@ SUBROUTINE SCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,`
`159`	`159`	`*`
`160`	`160`	`* Test the error exits`
`161`	`161`	`*`
	`162`	`+ CALL XLAENV( 1, 0 )`
	`163`	`+ CALL XLAENV( 2, 0 )`
`162`	`164`	`IF( TSTERR ) CALL SERRTSQR( PATH, NOUT )`
`163`	`165`	`INFOT = 0`
`164`	`166`	`*`
Original file line number	Diff line number	Diff line change
`@@ -159,6 +159,8 @@ SUBROUTINE ZCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,`
`159`	`159`	`*`
`160`	`160`	`* Test the error exits`
`161`	`161`	`*`
	`162`	`+ CALL XLAENV( 1, 0 )`
	`163`	`+ CALL XLAENV( 2, 0 )`
`162`	`164`	`IF( TSTERR ) CALL ZERRTSQR( PATH, NOUT )`
`163`	`165`	`INFOT = 0`
`164`	`166`	`*`