Retro68/gcc/libgomp/testsuite/libgomp.fortran/pr28390.f

mirror of https://github.com/autc04/Retro68.git synced 2024-12-11 03:52:59 +00:00
! PR fortran/28390
      program pr28390
      integer i
!$omp parallel do lastprivate(i)
      do i=1,100
      end do
      if (i.ne.101) STOP 1
      end
add gcc 4.70 2012-03-27 23:13:14 +00:00			`! PR fortran/28390`
			`program pr28390`
			`integer i`
			`!$omp parallel do lastprivate(i)`
			`do i=1,100`
			`end do`
upgrade to gcc 8.2.0 and newlib 3.0.0 2018-12-28 15:30:48 +00:00			`if (i.ne.101) STOP 1`
add gcc 4.70 2012-03-27 23:13:14 +00:00			`end`