[Openmp]: Missing import statement in openmp interface for Fortran

[malharJ]

Summary

The extra import is required to access entities in host scoping unit.
Also looks like it's present in the other interface functions as well.

[pawelo12345678]

I like it.

[AndreyChurbanov]

Then the "use omp_lib_kinds" lines can be removed, as they supposed to make
the omp_allocator_handle_kind visible in the interfaces, but probably do not work for all compilers
(or when omp* modules were not built or not accessible).

These were copy-paste errors transferred from omp_lib.f90.var file where omp* modules are defined.
Thanks for taking care of this.

[malharJ]

• removed usage of "use omp_lib_kinds" statement as the "import" is sufficient and consistent.

[AndreyChurbanov]

LG to me as well.
Thanks.

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

&      device_offset, device_num) bind(c)
           use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t, c_int
           integer(c_int) omp_target_is_accessible
           type(c_ptr), value :: ptr
           integer(c_size_t), value :: size
           integer(c_int), value :: device_num
         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
         end function omp_calloc
 
         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
         end function omp_aligned_calloc
 
         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
           integer(omp_allocator_handle_kind), value :: allocator
           integer(omp_allocator_handle_kind), value :: free_allocator
         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
 
 !       ***
 !       *** kmp_* entry points
 !       ***