[Bug fortran/28390] New: Broken !$omp parallel do lastprivate(iterationvar)

[jakub at redhat dot com]

! see OpenMP 2.5 spec, page 64 and A.30 on page 175
      program tst_lastpriv
      integer nc
      parameter (nc=100)
      integer a(nc),i
!$omp parallel do lastprivate(i)
      do i=1,nc
         a(i) = i
      end do
      if (i.ne.nc+1) then
         print *,'failed, i=',i
      else
         print *,'success ',a(nc),i
      endif
      end
fails with current trunk and -fopenmp.


-- 
           Summary: Broken !$omp parallel do lastprivate(iterationvar)
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jakub at redhat dot com


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28390