From 3a53207cc9f5907c257359ef37dc3c0df3f62ac2 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 22 May 2021 14:29:45 +0200 Subject: [PATCH] Fix spurious error exit test failures in the ?chktsqr tests (LAPACK564) --- lapack-netlib/TESTING/LIN/cchktsqr.f | 2 ++ lapack-netlib/TESTING/LIN/dchktsqr.f | 2 ++ lapack-netlib/TESTING/LIN/schktsqr.f | 2 ++ lapack-netlib/TESTING/LIN/zchktsqr.f | 2 ++ 4 files changed, 8 insertions(+) diff --git a/lapack-netlib/TESTING/LIN/cchktsqr.f b/lapack-netlib/TESTING/LIN/cchktsqr.f index 8288916db..62b6ce434 100644 --- a/lapack-netlib/TESTING/LIN/cchktsqr.f +++ b/lapack-netlib/TESTING/LIN/cchktsqr.f @@ -159,6 +159,8 @@ * * 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 index c4b1f01bd..14119e6e5 100644 --- a/lapack-netlib/TESTING/LIN/dchktsqr.f +++ b/lapack-netlib/TESTING/LIN/dchktsqr.f @@ -159,6 +159,8 @@ * * 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 index 2bed434a8..aa4d6f9c4 100644 --- a/lapack-netlib/TESTING/LIN/schktsqr.f +++ b/lapack-netlib/TESTING/LIN/schktsqr.f @@ -159,6 +159,8 @@ * * 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 index e6e6ac556..678b1772f 100644 --- a/lapack-netlib/TESTING/LIN/zchktsqr.f +++ b/lapack-netlib/TESTING/LIN/zchktsqr.f @@ -159,6 +159,8 @@ * * Test the error exits * + CALL XLAENV( 1, 0 ) + CALL XLAENV( 2, 0 ) IF( TSTERR ) CALL ZERRTSQR( PATH, NOUT ) INFOT = 0 *