aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90')
-rw-r--r--gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f9026
1 files changed, 0 insertions, 26 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90
deleted file mode 100644
index 18c812ac4..000000000
--- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.22.8.f90
+++ /dev/null
@@ -1,26 +0,0 @@
-! { dg-do run }
-! { dg-require-effective-target tls_runtime }
- MODULE A22_MODULE8
- REAL, POINTER :: WORK(:)
- SAVE WORK
-!$OMP THREADPRIVATE(WORK)
- END MODULE A22_MODULE8
- SUBROUTINE SUB1(N)
- USE A22_MODULE8
-!$OMP PARALLEL PRIVATE(THE_SUM)
- ALLOCATE(WORK(N))
- CALL SUB2(THE_SUM)
- WRITE(*,*)THE_SUM
-!$OMP END PARALLEL
- END SUBROUTINE SUB1
- SUBROUTINE SUB2(THE_SUM)
- USE A22_MODULE8
- WORK(:) = 10
- THE_SUM=SUM(WORK)
- END SUBROUTINE SUB2
- PROGRAM A22_8_GOOD
- N = 10
- CALL SUB1(N)
- END PROGRAM A22_8_GOOD
-
-! { dg-final { cleanup-modules "a22_module8" } }