diff --git a/openmp/runtime/src/include/omp_lib.h.var b/openmp/runtime/src/include/omp_lib.h.var --- a/openmp/runtime/src/include/omp_lib.h.var +++ b/openmp/runtime/src/include/omp_lib.h.var @@ -748,6 +748,7 @@ function omp_alloc(size, allocator) bind(c) use omp_lib_kinds use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t + import :: omp_allocator_handle_kind type(c_ptr) omp_alloc integer(c_size_t), value :: size integer(omp_allocator_handle_kind), value :: allocator @@ -756,6 +757,7 @@ function omp_aligned_alloc(alignment, size, allocator) bind(c) use omp_lib_kinds use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t + import :: omp_allocator_handle_kind type(c_ptr) omp_aligned_alloc integer(c_size_t), value :: alignment, size integer(omp_allocator_handle_kind), value :: allocator @@ -764,6 +766,7 @@ function omp_calloc(nmemb, size, allocator) bind(c) use omp_lib_kinds use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t + import :: omp_allocator_handle_kind type(c_ptr) omp_calloc integer(c_size_t), value :: nmemb, size integer(omp_allocator_handle_kind), value :: allocator @@ -773,6 +776,7 @@ & allocator) bind(c) use omp_lib_kinds use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t + import :: omp_allocator_handle_kind type(c_ptr) omp_aligned_calloc integer(c_size_t), value :: alignment, nmemb, size integer(omp_allocator_handle_kind), value :: allocator @@ -782,6 +786,7 @@ & free_allocator) bind(c) use omp_lib_kinds use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t + import :: omp_allocator_handle_kind type(c_ptr) omp_realloc type(c_ptr), value :: ptr integer(c_size_t), value :: size @@ -792,6 +797,7 @@ subroutine omp_free(ptr, allocator) bind(c) use omp_lib_kinds use, intrinsic :: iso_c_binding, only : c_ptr + import :: omp_allocator_handle_kind type(c_ptr), value :: ptr integer(omp_allocator_handle_kind), value :: allocator end subroutine omp_free