gcc/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
re PR fortran/28390 (Broken !$omp parallel do lastprivate(iterationvar)) PR fortran/28390 * trans-openmp.c (gfc_trans_omp_do): Look for LASTPRIVATE in code->exp.omp_clauses rather than in the 3rd function argument. * testsuite/libgomp.fortran/pr28390.f: New test. From-SVN: r115504 2006-07-16 22:19:27 +02:00			`! 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`