mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-08 05:54:40 +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
|