This commit is contained in:
aitap 2024-02-27 12:12:30 +01:00 committed by GitHub
commit 544f630493
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 6 additions and 5 deletions

View File

@ -48,6 +48,7 @@
#else
#include <omp.h>
#ifndef likely
#ifdef __GNUC__
#define likely(x) __builtin_expect(!!(x), 1)
@ -158,6 +159,9 @@ int BLASFUNC(blas_thread_shutdown)(void){
}
}
}
#if defined(_OPENMP) && _OPENMP >= 201811
omp_pause_resource_all(omp_pause_hard);
#endif
return 0;
}

View File

@ -44,10 +44,7 @@ endif
#this does not work with OpenMP nor with native Windows or Android threads
# FIXME TBD if this works on OSX, SunOS, POWER and zarch
ifeq ($(OSNAME), $(filter $(OSNAME),Linux CYGWIN_NT))
ifneq ($(USE_OPENMP), 1)
OBJS += test_fork.o
endif
OBJS += test_post_fork.o
OBJS += test_fork.o test_post_fork.o
endif
ifeq ($(C_COMPILER), PGI)

View File

@ -64,7 +64,7 @@ static void check_dgemm(double *a, double *b, double *result, double *expected,
CTEST(fork, safety)
{
#ifndef BUILD_DOUBLE
#if !defined(BUILD_DOUBLE) || (defined(_OPENMP) && _OPENMP < 201811)
exit(0);
#else
blasint n = 1000;