* testsuite/libgomp.exp (libgomp_init): Only set things that

[pf3gnuchains/gcc-fork.git] / libgomp / testsuite / libgomp.fortran / pr28390.f

! 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