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