test intel bug

This commit is contained in:
Yann Damour 2021-11-18 09:19:41 +01:00
parent 924dd3a65b
commit 3d478029e8
2 changed files with 17 additions and 1 deletions

View File

@ -9,7 +9,7 @@
FC : ifort -fpic
LAPACK_LIB : -mkl=parallel -lirc -lsvml -limf -lipps
IRPF90 : irpf90
IRPF90_FLAGS : --ninja --align=32 -DINTEL
IRPF90_FLAGS : --ninja --align=32 -DINTEL -DINTEL_CHECK_OMP
# Global options
################

View File

@ -0,0 +1,16 @@
subroutine intel_check_omp()
! Doc : idk
implicit none
IRP_IF INTEL_CHECK_OMP
call omp_set_max_active_levels(5)
print*,'INTEL_CHECK_OMP: true'
IRP_ELSE
call omp_set_nested(.True.)
!call omp_set_nested(.False.)
print*,'INTEL_CHECK_OMP: false'
IRP_ENDIF
end