[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.
This commit is contained in:
Peyton, Jonathan L 2021-02-25 12:47:33 -06:00
parent 84579fc24f
commit d12ae7db99

View File

@ -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