1! { dg-do run } 2! PR fortran/28390 3 program pr28390 4 integer i 5!$omp parallel do lastprivate(i) 6 do i=1,100 7 end do 8 if (i.ne.101) stop 1 9 end 10