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 25