From 02d4a49761f2ed74e0fe6943c3a3759ebed45ea3 Mon Sep 17 00:00:00 2001 From: Isuru Fernando Date: Thu, 15 Jul 2021 04:54:33 -0500 Subject: [PATCH] Also make sure the `1` is INTEGER*4 for OMP_SET_NUM_THREADS --- lapack-netlib/TESTING/EIG/cchkee.F | 8 +++++--- lapack-netlib/TESTING/EIG/dchkee.F | 5 +++-- lapack-netlib/TESTING/EIG/schkee.F | 5 +++-- lapack-netlib/TESTING/EIG/zchkee.F | 8 +++++--- 4 files changed, 16 insertions(+), 10 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/cchkee.F b/lapack-netlib/TESTING/EIG/cchkee.F index ab54078a3..ef9f71ec9 100644 --- a/lapack-netlib/TESTING/EIG/cchkee.F +++ b/lapack-netlib/TESTING/EIG/cchkee.F @@ -1076,7 +1076,7 @@ INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD, $ NK, NN, NPARMS, NRHS, NTYPES, $ VERS_MAJOR, VERS_MINOR, VERS_PATCH - INTEGER*4 N_THREADS + INTEGER*4 N_THREADS, ONE_THREAD REAL EPS, S1, S2, THRESH, THRSHN * .. * .. Local Arrays .. @@ -1873,7 +1873,8 @@ IF( TSTERR ) THEN #if defined(_OPENMP) N_THREADS = OMP_GET_MAX_THREADS() - CALL OMP_SET_NUM_THREADS(1) + ONE_THREAD = 1 + CALL OMP_SET_NUM_THREADS(ONE_THREAD) #endif CALL CERRST( 'CST', NOUT ) #if defined(_OPENMP) @@ -2340,7 +2341,8 @@ IF( TSTERR ) THEN #if defined(_OPENMP) N_THREADS = OMP_GET_MAX_THREADS() - CALL OMP_SET_NUM_THREADS(1) + ONE_THREAD = 1 + CALL OMP_SET_NUM_THREADS(ONE_THREAD) #endif CALL CERRST( 'CHB', NOUT ) #if defined(_OPENMP) diff --git a/lapack-netlib/TESTING/EIG/dchkee.F b/lapack-netlib/TESTING/EIG/dchkee.F index 6399fecef..89b6958fe 100644 --- a/lapack-netlib/TESTING/EIG/dchkee.F +++ b/lapack-netlib/TESTING/EIG/dchkee.F @@ -1082,7 +1082,7 @@ INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD, $ NK, NN, NPARMS, NRHS, NTYPES, $ VERS_MAJOR, VERS_MINOR, VERS_PATCH - INTEGER*4 N_THREADS + INTEGER*4 N_THREADS, ONE_THREAD DOUBLE PRECISION EPS, S1, S2, THRESH, THRSHN * .. * .. Local Arrays .. @@ -1878,7 +1878,8 @@ IF( TSTERR ) THEN #if defined(_OPENMP) N_THREADS = OMP_GET_MAX_THREADS() - CALL OMP_SET_NUM_THREADS(1) + ONE_THREAD = 1 + CALL OMP_SET_NUM_THREADS(ONE_THREAD) #endif CALL DERRST( 'DST', NOUT ) #if defined(_OPENMP) diff --git a/lapack-netlib/TESTING/EIG/schkee.F b/lapack-netlib/TESTING/EIG/schkee.F index 5484a7c26..b58433959 100644 --- a/lapack-netlib/TESTING/EIG/schkee.F +++ b/lapack-netlib/TESTING/EIG/schkee.F @@ -1082,7 +1082,7 @@ INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD, $ NK, NN, NPARMS, NRHS, NTYPES, $ VERS_MAJOR, VERS_MINOR, VERS_PATCH - INTEGER*4 N_THREADS + INTEGER*4 N_THREADS, ONE_THREAD REAL EPS, S1, S2, THRESH, THRSHN * .. * .. Local Arrays .. @@ -1879,7 +1879,8 @@ IF( TSTERR ) THEN #if defined(_OPENMP) N_THREADS = OMP_GET_MAX_THREADS() - CALL OMP_SET_NUM_THREADS(1) + ONE_THREAD = 1 + CALL OMP_SET_NUM_THREADS(ONE_THREAD) #endif CALL SERRST( 'SST', NOUT ) #if defined(_OPENMP) diff --git a/lapack-netlib/TESTING/EIG/zchkee.F b/lapack-netlib/TESTING/EIG/zchkee.F index 7e9144d15..fb418a43b 100644 --- a/lapack-netlib/TESTING/EIG/zchkee.F +++ b/lapack-netlib/TESTING/EIG/zchkee.F @@ -1076,7 +1076,7 @@ INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD, $ NK, NN, NPARMS, NRHS, NTYPES, $ VERS_MAJOR, VERS_MINOR, VERS_PATCH - INTEGER*4 N_THREADS + INTEGER*4 N_THREADS, ONE_THREAD DOUBLE PRECISION EPS, S1, S2, THRESH, THRSHN * .. * .. Local Arrays .. @@ -1873,7 +1873,8 @@ IF( TSTERR ) THEN #if defined(_OPENMP) N_THREADS = OMP_GET_MAX_THREADS() - CALL OMP_SET_NUM_THREADS(1) + ONE_THREAD = 1 + CALL OMP_SET_NUM_THREADS(ONE_THREAD) #endif CALL ZERRST( 'ZST', NOUT ) #if defined(_OPENMP) @@ -2338,7 +2339,8 @@ IF( TSTERR ) THEN #if defined(_OPENMP) N_THREADS = OMP_GET_MAX_THREADS() - CALL OMP_SET_NUM_THREADS(1) + ONE_THREAD = 1 + CALL OMP_SET_NUM_THREADS(ONE_THREAD) #endif CALL ZERRST( 'ZHB', NOUT ) #if defined(_OPENMP)