Sign in
gnu
/
gcc
/
33fdbbe4ce6055eb858096d01720ccf94aa854ec
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr59488-1.f90
blob: 9db17dd2769a4d6b26ce79da2e27d2e09893e85b [
file
] [
log
] [
blame
]
!
PR fortran
/
59488
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fopenmp"
}
implicit
none
integer
,
parameter
::
p
(
2
)
=
(
/ 11, 12 /
)
integer
::
r
!
$omp parallel
do
default
(
none
)
do
r
=
1
,
2
print
*,
p
(
r
)
end
do
end