diff options
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.f | 40 |
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 |