diff options
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.f90 | 26 |
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" } } |