summaryrefslogtreecommitdiff
path: root/libgomp/testsuite/libgomp.fortran/pr28390.f
blob: 68fc32b6f503a89d7032580407415189b0b6a946 (plain)
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