gomp-20050608-branch/libgomp/testsuite/libgomp.fortran/appendix-a/a.28.4.f90

   1 ! { dg-do run }
   2
   3        PROGRAM A28_4
   4          INTEGER I, J
   5          INTEGER A(100), B(100)
   6          EQUIVALENCE (A(51), B(1))
   7 !$OMP PARALLEL DO DEFAULT(PRIVATE) PRIVATE(I,J) LASTPRIVATE(A)
   8            DO I=1,100
   9                DO J=1,100
  10                  B(J) = J - 1
  11                ENDDO
  12                DO J=1,100
  13                  A(J) = J    ! B becomes undefined at this point
  14                ENDDO
  15                DO J=1,50
  16                  B(J) = B(J) + 1 ! B is undefined
  17                             ! A becomes undefined at this point
  18                ENDDO
  19            ENDDO
  20 !$OMP END PARALLEL DO          ! The LASTPRIVATE write for A has
  21                                ! undefined results
  22         PRINT *, B  ! B is undefined since the LASTPRIVATE
  23                     ! write of A was not defined
  24         END PROGRAM A28_4