[OpenMP] Fix accidental addition of use omp_lib_kinds
authorPeyton, Jonathan L <jonathan.l.peyton@intel.com>
Thu, 25 Feb 2021 18:47:33 +0000 (12:47 -0600)
committerPeyton, Jonathan L <jonathan.l.peyton@intel.com>
Thu, 25 Feb 2021 18:49:56 +0000 (12:49 -0600)
Fortran header accidentally had use omp_lib_kinds added inside a
subroutine and function. This patch removes the lines.

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

index 0f6c715..7dcd21a 100644 (file)
 
         subroutine omp_set_teams_thread_limit(thread_limit) bind(c)
           import
-          use omp_lib_kinds
           integer (kind=omp_integer_kind), value :: thread_limit
         end subroutine omp_set_teams_thread_limit
 
         function omp_get_teams_thread_limit() bind(c)
           import
-          use omp_lib_kinds
           integer (kind=omp_integer_kind) omp_get_teams_thread_limit
         end function omp_get_teams_thread_limit