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