Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr71687.f90
blob: 3971263752e54cb94d1535c7e68815fbdc3cad1e [
file
] [
log
] [
blame
]
!
PR fortran
/
71687
!
{
dg
-
do
compile
}
!
{
dg
-
additional
-
options
"-fstack-arrays -O2"
}
subroutine s
(
n
,
x
)
integer
::
n
real
::
x
(
n
)
!
$omp parallel
x
(
1
:
n
)
=
x
(
n
:
1
:-
1
)
!
$omp
end
parallel
end