Sign in
gnu
/
gcc
/
refs/heads/devel/gimple-linterchange
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
use_intrinsic_1.f90
blob: 5996350301b5fd5eb3826a7207f80e2a21e8b727 [
file
] [
log
] [
blame
]
!
{
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