diff options
Diffstat (limited to 'openmp/runtime/src/include/40/omp_lib.f90.var')
-rw-r--r-- | openmp/runtime/src/include/40/omp_lib.f90.var | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/openmp/runtime/src/include/40/omp_lib.f90.var b/openmp/runtime/src/include/40/omp_lib.f90.var index b5f124c674b..4608db160a7 100644 --- a/openmp/runtime/src/include/40/omp_lib.f90.var +++ b/openmp/runtime/src/include/40/omp_lib.f90.var @@ -208,6 +208,11 @@ integer (kind=omp_integer_kind) omp_get_cancellation end function omp_get_cancellation + function omp_is_initial_device() bind(c) + use omp_lib_kinds + logical (kind=omp_logical_kind) omp_is_initial_device + end function omp_is_initial_device + subroutine omp_init_lock(lockvar) bind(c) !DIR$ IF(__INTEL_COMPILER.GE.1400) !DIR$ attributes known_intrinsic :: omp_init_lock |