Retro68/gcc/libgomp/testsuite/libgomp.fortran/pr28390.f
2018-12-28 16:30:48 +01:00

9 lines
157 B
Fortran

! 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