! 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