2865ea6615
libgomp/
2012-12-19 Tobias Burnus <burnus@net-b.de>
* testsuite/libgomp.fortran/use_intrinsic_1.f90: New; moved
from gcc/testsuite/gfortran.dg/gomp/use_intrinsic_1.f90.
gcc/testsuite/
2012-12-19 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/gomp/use_intrinsic_1.f90: Moved
to libgomp/testsuite/libgomp.fortran/use_intrinsic_1.f90.
From-SVN: r194611
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
|