Sign in
gnu
/
gcc
/
646ce0056ed84bcc71d52cb07c61d0bf331f91c3
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr28390.f
blob: 9a0832a59bb4c36fd818592b99270b1b2e7aa179 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR fortran
/
28390
program pr28390
integer i
!
$omp parallel
do
lastprivate
(
i
)
do
i
=
1
,
100
end
do
if
(
i
.
ne
.
101
)
stop
1
end
