diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.28.4.f90')
| -rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.28.4.f90 | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.28.4.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.28.4.f90 deleted file mode 100644 index c5a5cd74c..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.28.4.f90 +++ /dev/null @@ -1,24 +0,0 @@ -! { 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 |