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