aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/pr25162.f
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/pr25162.f')
-rw-r--r--gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/pr25162.f40
1 files changed, 0 insertions, 40 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/pr25162.f b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/pr25162.f
deleted file mode 100644
index a868ea4c9..000000000
--- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/pr25162.f
+++ /dev/null
@@ -1,40 +0,0 @@
-C PR fortran/25162
-C { dg-do run }
-C { dg-require-effective-target tls_runtime }
- PROGRAM PR25162
- CALL TEST1
- CALL TEST2
- END
- SUBROUTINE TEST1
- DOUBLE PRECISION BPRIM
- COMMON /TESTCOM/ BPRIM(100)
-C$OMP THREADPRIVATE(/TESTCOM/)
- INTEGER I
- DO I = 1, 100
- BPRIM( I ) = DBLE( I )
- END DO
- RETURN
- END
- SUBROUTINE TEST2
- DOUBLE PRECISION BPRIM
- COMMON /TESTCOM/ BPRIM(100)
-C$OMP THREADPRIVATE(/TESTCOM/)
- INTEGER I, IDUM(50)
- DO I = 1, 50
- IDUM(I) = I
- END DO
-C$OMP PARALLEL COPYIN(/TESTCOM/) NUM_THREADS(4)
- CALL TEST3
-C$OMP END PARALLEL
- RETURN
- END
- SUBROUTINE TEST3
- DOUBLE PRECISION BPRIM
- COMMON /TESTCOM/ BPRIM(100)
-C$OMP THREADPRIVATE(/TESTCOM/)
- INTEGER K
- DO K = 1, 10
- IF (K.NE.BPRIM(K)) CALL ABORT
- END DO
- RETURN
- END