Sign in
gnu
/
gcc
/
646ce0056ed84bcc71d52cb07c61d0bf331f91c3
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
collapse4.f90
blob: 8c28571975bcf9e5fe3d08dc02293af887c488d0 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
integer
::
i
,
j
,
k
!
$omp parallel
do
lastprivate
(
i
,
j
,
k
)
collapse
(
3
)
do
i
=
0
,
17
do
j
=
0
,
6
do
k
=
0
,
5
end
do
end
do
end
do
if
(
i
.
ne
.
18
.
or
.
j
.
ne
.
7
.
or
.
k
.
ne
.
6
)
stop
1
end
