Sign in
gnu
/
gcc
/
f49e3d28be44179f07b8a06159139ce77096dda7
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr25219.f90
blob: 6795efa4e85029b33b655390e43e38b3434a1336 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR fortran
/
25219
implicit
none
save
integer
::
i
,
k
k
=
3
!
$omp parallel
!
$omp
do
lastprivate
(
k
)
do
i
=
1
,
100
k
=
i
end
do
!
$omp
end
do
!
$omp
end
parallel
if
(
k
.
ne
.
100
)
stop
1
end
