diff options
author | Dan Albert <danalbert@google.com> | 2015-06-17 11:09:54 -0700 |
---|---|---|
committer | Dan Albert <danalbert@google.com> | 2015-06-17 14:15:22 -0700 |
commit | f378ebf14df0952eae870c9865bab8326aa8f137 (patch) | |
tree | 31794503eb2a8c64ea5f313b93100f1163afcffb /gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/pr25162.f | |
parent | 2c58169824949d3a597d9fa81931e001ef9b1bd0 (diff) | |
download | toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.gz toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.bz2 toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.zip |
Delete old versions of GCC.
Change-Id: I710f125d905290e1024cbd67f48299861790c66c
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 |