1 2 3 4 5 6 7 8
! PR fortran/28390 program pr28390 integer i !$omp parallel do lastprivate(i) do i=1,100 end do if (i.ne.101) call abort end