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/reduction5.f90 | |
| 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/reduction5.f90')
| -rw-r--r-- | gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/reduction5.f90 | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/reduction5.f90 b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/reduction5.f90 deleted file mode 100644 index bfdd43a93..000000000 --- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/reduction5.f90 +++ /dev/null @@ -1,41 +0,0 @@ -! { dg-do run } - -module reduction5 - intrinsic ior, min, max -end module reduction5 - - call test1 - call test2 -contains - subroutine test1 - use reduction5, bitwise_or => ior - integer :: n - n = Z'f' -!$omp parallel sections num_threads (3) reduction (bitwise_or: n) - n = ior (n, Z'20') -!$omp section - n = bitwise_or (Z'410', n) -!$omp section - n = bitwise_or (n, Z'2000') -!$omp end parallel sections - if (n .ne. Z'243f') call abort - end subroutine - subroutine test2 - use reduction5, min => max, max => min - integer :: m, n - m = 8 - n = 4 -!$omp parallel sections num_threads (3) reduction (min: n) & -!$omp & reduction (max: m) - if (m .gt. 13) m = 13 - if (n .lt. 11) n = 11 -!$omp section - if (m .gt. 5) m = 5 - if (n .lt. 15) n = 15 -!$omp section - if (m .gt. 3) m = 3 - if (n .lt. -1) n = -1 -!$omp end parallel sections - if (m .ne. 3 .or. n .ne. 15) call abort - end subroutine test2 -end |