From d12ae7db9973d1aeb21849fadba1c612c0fd0590 Mon Sep 17 00:00:00 2001 From: "Peyton, Jonathan L" Date: Thu, 25 Feb 2021 12:47:33 -0600 Subject: [PATCH] [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. --- openmp/runtime/src/include/omp_lib.h.var | 2 -- 1 file changed, 2 deletions(-) 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 -- 2.7.4