Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr45595.f90
blob: ab10c3f952efeb1785e495f6b8b26fb017761980 [
file
] [
log
] [
blame
]
!
PR fortran
/
45595
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fopenmp"
}
subroutine foo
(
l
,
u
)
integer
::
k
,
l
,
u
!
$omp parallel
do
shared
(
l
,
u
)
collapse
(
3
)
!
{
dg
-
error
"not enough DO loops"
}
do
k
=
l
,
u
end
do
end
subroutine