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.4.3/libgomp/testsuite/libgomp.fortran/collapse1.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.4.3/libgomp/testsuite/libgomp.fortran/collapse1.f90')
| -rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/collapse1.f90 | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/collapse1.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/collapse1.f90 deleted file mode 100644 index 1ecfa0c93..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/collapse1.f90 +++ /dev/null @@ -1,26 +0,0 @@ -! { dg-do run } - -program collapse1 - integer :: i, j, k, a(1:3, 4:6, 5:7) - logical :: l - l = .false. - a(:, :, :) = 0 - !$omp parallel do collapse(4 - 1) schedule(static, 4) - do i = 1, 3 - do j = 4, 6 - do k = 5, 7 - a(i, j, k) = i + j + k - end do - end do - end do - !$omp parallel do collapse(2) reduction(.or.:l) - do i = 1, 3 - do j = 4, 6 - do k = 5, 7 - if (a(i, j, k) .ne. (i + j + k)) l = .true. - end do - end do - end do - !$omp end parallel do - if (l) call abort -end program collapse1 |