gcc-4.9/libgomp/testsuite/libgomp.fortran/use_intrinsic_1.f90


1
2
3
4
5
6
7
8
9
10
11

! { 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