mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-30 10:29:39 +00:00
25 lines
828 B
Fortran
25 lines
828 B
Fortran
! { dg-do run }
|
|
|
|
PROGRAM A28_4
|
|
INTEGER I, J
|
|
INTEGER A(100), B(100)
|
|
EQUIVALENCE (A(51), B(1))
|
|
!$OMP PARALLEL DO DEFAULT(PRIVATE) PRIVATE(I,J) LASTPRIVATE(A)
|
|
DO I=1,100
|
|
DO J=1,100
|
|
B(J) = J - 1
|
|
ENDDO
|
|
DO J=1,100
|
|
A(J) = J ! B becomes undefined at this point
|
|
ENDDO
|
|
DO J=1,50
|
|
B(J) = B(J) + 1 ! B is undefined
|
|
! A becomes undefined at this point
|
|
ENDDO
|
|
ENDDO
|
|
!$OMP END PARALLEL DO ! The LASTPRIVATE write for A has
|
|
! undefined results
|
|
PRINT *, B ! B is undefined since the LASTPRIVATE
|
|
! write of A was not defined
|
|
END PROGRAM A28_4
|