diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/do2.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/do2.f90 | 366 |
1 files changed, 0 insertions, 366 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/do2.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/do2.f90 deleted file mode 100644 index b90ccddd8..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/do2.f90 +++ /dev/null @@ -1,366 +0,0 @@ -! { dg-do run } - - integer, dimension (128) :: a, b - integer :: i, j - logical :: k - a = -1 - b = -1 - do i = 1, 128 - if (i .ge. 8 .and. i .le. 15) then - b(i) = 1 * 256 + i - else if (i .ge. 19 .and. i .le. 23) then - b(i) = 2 * 256 + i - else if (i .ge. 28 .and. i .le. 38) then - if (iand (i, 1) .eq. 0) b(i) = 3 * 256 + i - else if (i .ge. 59 .and. i .le. 79) then - if (iand (i - 59, 3) .eq. 0) b(i) = 4 * 256 + i - else if (i .ge. 101 .and. i .le. 125) then - if (mod (i - 101, 12) .eq. 0) b(i) = 5 * 256 + i - end if - end do - - k = .false. - j = 8 -!$omp parallel num_threads (4) - -!$omp do ordered - do i = 8, 15 - a(i) = 1 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 1 -!$omp end ordered - end do - -!$omp single - j = 23 -!$omp end single - -!$omp do ordered - do i = 23, 19, -1 - a(i) = 2 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 1 -!$omp end ordered - end do - -!$omp single - j = 28 -!$omp end single - -!$omp do ordered - do i = 28, 39, 2 - a(i) = 3 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 2 -!$omp end ordered - end do - -!$omp single - j = 79 -!$omp end single - -!$omp do ordered - do i = 79, 59, -4 - a(i) = 4 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 4 -!$omp end ordered - end do - -!$omp single - j = 125 -!$omp end single - -!$omp do ordered - do i = 125, 90, -12 - a(i) = 5 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 12 -!$omp end ordered - end do - -!$omp end parallel - - if (any (a .ne. b) .or. k) call abort - a = -1 - k = .false. - j = 8 -!$omp parallel num_threads (4) - -!$omp do ordered schedule (static) - do i = 8, 15 - a(i) = 1 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 1 -!$omp end ordered - end do - -!$omp single - j = 23 -!$omp end single - -!$omp do ordered schedule (static, 1) - do i = 23, 19, -1 - a(i) = 2 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 1 -!$omp end ordered - end do - -!$omp single - j = 28 -!$omp end single - -!$omp do ordered schedule (static, 3) - do i = 28, 39, 2 - a(i) = 3 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 2 -!$omp end ordered - end do - -!$omp single - j = 79 -!$omp end single - -!$omp do ordered schedule (static, 6) - do i = 79, 59, -4 - a(i) = 4 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 4 -!$omp end ordered - end do - -!$omp single - j = 125 -!$omp end single - -!$omp do ordered schedule (static, 2) - do i = 125, 90, -12 - a(i) = 5 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 12 -!$omp end ordered - end do - -!$omp end parallel - - if (any (a .ne. b) .or. k) call abort - a = -1 - k = .false. - j = 8 -!$omp parallel num_threads (4) - -!$omp do ordered schedule (dynamic) - do i = 8, 15 - a(i) = 1 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 1 -!$omp end ordered - end do - -!$omp single - j = 23 -!$omp end single - -!$omp do ordered schedule (dynamic, 4) - do i = 23, 19, -1 - a(i) = 2 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 1 -!$omp end ordered - end do - -!$omp single - j = 28 -!$omp end single - -!$omp do ordered schedule (dynamic, 1) - do i = 28, 39, 2 - a(i) = 3 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 2 -!$omp end ordered - end do - -!$omp single - j = 79 -!$omp end single - -!$omp do ordered schedule (dynamic, 2) - do i = 79, 59, -4 - a(i) = 4 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 4 -!$omp end ordered - end do - -!$omp single - j = 125 -!$omp end single - -!$omp do ordered schedule (dynamic, 3) - do i = 125, 90, -12 - a(i) = 5 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 12 -!$omp end ordered - end do - -!$omp end parallel - - if (any (a .ne. b) .or. k) call abort - a = -1 - k = .false. - j = 8 -!$omp parallel num_threads (4) - -!$omp do ordered schedule (guided) - do i = 8, 15 - a(i) = 1 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 1 -!$omp end ordered - end do - -!$omp single - j = 23 -!$omp end single - -!$omp do ordered schedule (guided, 4) - do i = 23, 19, -1 - a(i) = 2 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 1 -!$omp end ordered - end do - -!$omp single - j = 28 -!$omp end single - -!$omp do ordered schedule (guided, 1) - do i = 28, 39, 2 - a(i) = 3 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 2 -!$omp end ordered - end do - -!$omp single - j = 79 -!$omp end single - -!$omp do ordered schedule (guided, 2) - do i = 79, 59, -4 - a(i) = 4 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 4 -!$omp end ordered - end do - -!$omp single - j = 125 -!$omp end single - -!$omp do ordered schedule (guided, 3) - do i = 125, 90, -12 - a(i) = 5 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 12 -!$omp end ordered - end do - -!$omp end parallel - - if (any (a .ne. b) .or. k) call abort - a = -1 - k = .false. - j = 8 -!$omp parallel num_threads (4) - -!$omp do ordered schedule (runtime) - do i = 8, 15 - a(i) = 1 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 1 -!$omp end ordered - end do - -!$omp single - j = 23 -!$omp end single - -!$omp do ordered schedule (runtime) - do i = 23, 19, -1 - a(i) = 2 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 1 -!$omp end ordered - end do - -!$omp single - j = 28 -!$omp end single - -!$omp do ordered schedule (runtime) - do i = 28, 39, 2 - a(i) = 3 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j + 2 -!$omp end ordered - end do - -!$omp single - j = 79 -!$omp end single - -!$omp do ordered schedule (runtime) - do i = 79, 59, -4 - a(i) = 4 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 4 -!$omp end ordered - end do - -!$omp single - j = 125 -!$omp end single - -!$omp do ordered schedule (runtime) - do i = 125, 90, -12 - a(i) = 5 * 256 + i -!$omp ordered - if (i .ne. j) k = .true. - j = j - 12 -!$omp end ordered - end do - -!$omp end parallel - - if (any (a .ne. b) .or. k) call abort -end |