From: Peyton, Jonathan L <jonathan.l.peyton@intel.com>
Date: Thu, 25 Feb 2021 18:47:33 +0000 (-0600)
Subject: [OpenMP] Fix accidental addition of use omp_lib_kinds
X-Git-Tag: llvmorg-14-init~14034
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d12ae7db9973d1aeb21849fadba1c612c0fd0590;p=platform%2Fupstream%2Fllvm.git

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

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