[Openmp-commits] [openmp] d12ae7d - [OpenMP] Fix accidental addition of use omp_lib_kinds

[via Openmp-commits]

Author: Peyton, Jonathan L
Date: 2021-02-25T12:49:56-06:00
New Revision: d12ae7db9973d1aeb21849fadba1c612c0fd0590

URL: https://github.com/llvm/llvm-project/commit/d12ae7db9973d1aeb21849fadba1c612c0fd0590
DIFF: https://github.com/llvm/llvm-project/commit/d12ae7db9973d1aeb21849fadba1c612c0fd0590.diff

LOG: [OpenMP] Fix accidental addition of use omp_lib_kinds

Fortran header accidentally had use omp_lib_kinds added inside a
subroutine and function. This patch removes the lines.

Added: 
    

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

Removed: 
    


################################################################################
diff  --git a/openmp/runtime/src/include/omp_lib.h.var b/openmp/runtime/src/include/omp_lib.h.var
index 0f6c715fe752..7dcd21afa192 100644
--- a/openmp/runtime/src/include/omp_lib.h.var
+++ b/openmp/runtime/src/include/omp_lib.h.var
@@ -594,13 +594,11 @@
 
         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