summaryrefslogtreecommitdiffstats
path: root/openmp/runtime/src/include/40/omp_lib.f90.var
diff options
context:
space:
mode:
Diffstat (limited to 'openmp/runtime/src/include/40/omp_lib.f90.var')
-rw-r--r--openmp/runtime/src/include/40/omp_lib.f90.var22
1 files changed, 0 insertions, 22 deletions
diff --git a/openmp/runtime/src/include/40/omp_lib.f90.var b/openmp/runtime/src/include/40/omp_lib.f90.var
index 90d33ff4d01..5be80266035 100644
--- a/openmp/runtime/src/include/40/omp_lib.f90.var
+++ b/openmp/runtime/src/include/40/omp_lib.f90.var
@@ -27,7 +27,6 @@
integer, parameter :: kmp_size_t_kind = c_size_t
integer, parameter :: kmp_affinity_mask_kind = c_intptr_t
integer, parameter :: kmp_cancel_kind = omp_integer_kind
- integer, parameter :: kmp_lock_hint_kind = omp_integer_kind
end module omp_lib_kinds
@@ -59,15 +58,6 @@
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
- integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_none = 0
- integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_uncontended = 1
- integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_contended = 2
- integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_nonspeculative = 3
- integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_speculative = 4
- integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 5
- integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 6
- integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 7
-
interface
! ***
@@ -453,18 +443,6 @@
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
- subroutine kmp_init_lock_hinted(lockvar, lockhint) bind(c)
- use omp_lib_kinds
- integer (kind=omp_lock_kind) lockvar
- integer (kind=kmp_lock_hint_kind), value :: lockhint
- end subroutine kmp_init_lock_hinted
-
- subroutine kmp_init_nest_lock_hinted(lockvar, lockhint) bind(c)
- use omp_lib_kinds
- integer (kind=omp_lock_kind) lockvar
- integer (kind=kmp_lock_hint_kind), value :: lockhint
- end subroutine kmp_init_nest_lock_hinted
-
end interface
end module omp_lib
OpenPOWER on IntegriCloud