xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/pr28390.f (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
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