From 13a29d13fde096176b0e6f70be2390dd5f3250c7 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 27 Apr 2021 15:48:22 +0200 Subject: [PATCH] Apply lapack-testing fix from Reference-LAPACK PR536 fixes changing back from a single OMP thread for error exit testing to the originally requested number of threads for computational tests --- lapack-netlib/TESTING/EIG/cchkee.F | 4 ++-- lapack-netlib/TESTING/EIG/dchkee.F | 2 +- lapack-netlib/TESTING/EIG/schkee.F | 2 +- lapack-netlib/TESTING/EIG/zchkee.F | 4 ++-- 4 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/cchkee.F b/lapack-netlib/TESTING/EIG/cchkee.F index 0d3d749..de4aed6 100644 --- a/lapack-netlib/TESTING/EIG/cchkee.F +++ b/lapack-netlib/TESTING/EIG/cchkee.F @@ -1871,7 +1871,7 @@ CALL XLAENV( 9, 25 ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL CERRST( 'CST', NOUT ) @@ -2338,7 +2338,7 @@ CALL ALAREQ( C3, NTYPES, DOTYPE, MAXTYP, NIN, NOUT ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL CERRST( 'CHB', NOUT ) diff --git a/lapack-netlib/TESTING/EIG/dchkee.F b/lapack-netlib/TESTING/EIG/dchkee.F index ee22ce3..00e8eb5 100644 --- a/lapack-netlib/TESTING/EIG/dchkee.F +++ b/lapack-netlib/TESTING/EIG/dchkee.F @@ -1876,7 +1876,7 @@ CALL XLAENV( 9, 25 ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL DERRST( 'DST', NOUT ) diff --git a/lapack-netlib/TESTING/EIG/schkee.F b/lapack-netlib/TESTING/EIG/schkee.F index a063c18..c3f9ca1 100644 --- a/lapack-netlib/TESTING/EIG/schkee.F +++ b/lapack-netlib/TESTING/EIG/schkee.F @@ -1877,7 +1877,7 @@ CALL XLAENV( 9, 25 ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL SERRST( 'SST', NOUT ) diff --git a/lapack-netlib/TESTING/EIG/zchkee.F b/lapack-netlib/TESTING/EIG/zchkee.F index 2960495..908b7d6 100644 --- a/lapack-netlib/TESTING/EIG/zchkee.F +++ b/lapack-netlib/TESTING/EIG/zchkee.F @@ -1871,7 +1871,7 @@ CALL XLAENV( 9, 25 ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL ZERRST( 'ZST', NOUT ) @@ -2336,7 +2336,7 @@ CALL ALAREQ( C3, NTYPES, DOTYPE, MAXTYP, NIN, NOUT ) IF( TSTERR ) THEN #if defined(_OPENMP) - N_THREADS = OMP_GET_NUM_THREADS() + N_THREADS = OMP_GET_MAX_THREADS() CALL OMP_SET_NUM_THREADS(1) #endif CALL ZERRST( 'ZHB', NOUT ) -- 2.7.4