mirror of
https://github.com/autc04/Retro68.git
synced 2024-07-06 22:29:13 +00:00
12 lines
203 B
Fortran
12 lines
203 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR fortran/55197
|
|
!
|
|
! Contributed by Erik Toussaint
|
|
!
|
|
|
|
use, intrinsic :: omp_lib, only: omp_get_num_threads
|
|
use, intrinsic :: omp_lib_kinds , foo => omp_lock_kind
|
|
print *, foo
|
|
end
|