commit 6fc10831d8fc42ad4c18c5aa4561bf81059d02b4
author Peyton, Jonathan L <jonathan.l.peyton@intel.com> Thu Feb 25 12:47:33 2021 -0600
committer Copybara-Service <copybara-worker@google.com> Sat Feb 27 00:09:42 2021 -0800
tree 53dae3eacd85420f20d4bf1d1995f3491c71115a
parent 44ed983021f78083d025127d1fe1407880f8730b

[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.

GitOrigin-RevId: d12ae7db9973d1aeb21849fadba1c612c0fd0590

runtime/src/include/omp_lib.h.var

diff --git a/runtime/src/include/omp_lib.h.var b/runtime/src/include/omp_lib.h.var
index 0f6c715..7dcd21a 100644
--- a/runtime/src/include/omp_lib.h.var
+++ b/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