Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr41344.f
blob: 66ae8b35d5b672b4043f53322f101b665c5d7ed1 [
file
] [
log
] [
blame
]
subroutine xrotate
(
nerr
)
common
/
dfm
/
ndfl
*
$omp parallel
private
(
ix
)
ix
=
0
*
$omp
do
do
i
=
1
,
ndfl
ix
=
ix
+
1
if
(
ix
.
gt
.
5
)
go to
9000
!
{
dg
-
error
"invalid (exit|branch)"
}
enddo
*
$omp
end
do
*
$omp
end
parallel
9000
continue
end