[Openmp-commits] [PATCH] D120707: [Openmp]: Missing import statement in openmp interface for Fortran

[Malhar via Phabricator via Openmp-commits]

malharJ updated this revision to Diff 412124.
malharJ added a comment.

- removed usage of "use omp_lib_kinds". The import is sufficient.


Repository:
  rG LLVM Github Monorepo

CHANGES SINCE LAST ACTION
  https://reviews.llvm.org/D120707/new/

https://reviews.llvm.org/D120707

Files:
  openmp/runtime/src/include/omp_lib.h.var


Index: openmp/runtime/src/include/omp_lib.h.var
===================================================================
--- openmp/runtime/src/include/omp_lib.h.var
+++ openmp/runtime/src/include/omp_lib.h.var
@@ -746,24 +746,24 @@
         end function omp_target_is_accessible
 
         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
         end function omp_alloc
 
         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
         end function omp_aligned_alloc
 
         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
@@ -771,8 +771,8 @@
 
         function omp_aligned_calloc(alignment, 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_aligned_calloc
           integer(c_size_t), value :: alignment, nmemb, size
           integer(omp_allocator_handle_kind), value :: allocator
@@ -780,8 +780,8 @@
 
         function omp_realloc(ptr, size, allocator,                                                                                  &
      &      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
@@ -790,8 +790,8 @@
         end function omp_realloc
 
         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


-------------- next part --------------
A non-text attachment was scrubbed...
Name: D120707.412124.patch
Type: text/x-patch
Size: 2757 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/openmp-commits/attachments/20220301/f9d61b93/attachment.bin>