aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.7.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.7.f90')
-rw-r--r--gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.7.f9033
1 files changed, 0 insertions, 33 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.7.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.7.f90
deleted file mode 100644
index fff4e6d49..000000000
--- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.7.f90
+++ /dev/null
@@ -1,33 +0,0 @@
-! { dg-do run }
-! { dg-require-effective-target tls_runtime }
-
- PROGRAM A22_7_GOOD
- INTEGER, ALLOCATABLE, SAVE :: A(:)
- INTEGER, POINTER, SAVE :: PTR
- INTEGER, SAVE :: I
- INTEGER, TARGET :: TARG
- LOGICAL :: FIRSTIN = .TRUE.
-!$OMP THREADPRIVATE(A, I, PTR)
- ALLOCATE (A(3))
- A = (/1,2,3/)
- PTR => TARG
- I=5
-!$OMP PARALLEL COPYIN(I, PTR)
-!$OMP CRITICAL
- IF (FIRSTIN) THEN
- TARG = 4 ! Update target of ptr
- I = I + 10
- IF (ALLOCATED(A)) A = A + 10
- FIRSTIN = .FALSE.
- END IF
- IF (ALLOCATED(A)) THEN
- PRINT *, "a = ", A
- ELSE
- PRINT *, "A is not allocated"
- END IF
- PRINT *, "ptr = ", PTR
- PRINT *, "i = ", I
- PRINT *
-!$OMP END CRITICAL
-!$OMP END PARALLEL
- END PROGRAM A22_7_GOOD