Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr87752.f90
blob: 072de218253bac80d6b68dc492b8d8d6b304c510 [
file
] [
log
] [
blame
]
!
PR fortran
/
87752
!
{
dg
-
do
compile
}
!
{
dg
-
additional
-
options
"-Ofast"
}
subroutine foo
(
n
,
u
,
v
)
integer
::
n
real
,
pointer
::
u
(:),
v
(:)
!
$omp parallel
do
simd
do
i
=
1
,
n
u
(:)
=
v
(:)
end
do
end