diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/omp_parse1.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 | 185 |
1 files changed, 0 insertions, 185 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 deleted file mode 100644 index 9cd8cc2ba..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 +++ /dev/null @@ -1,185 +0,0 @@ -! { dg-do run } -use omp_lib - call test_parallel - call test_do - call test_sections - call test_single - -contains - subroutine test_parallel - integer :: a, b, c, e, f, g, i, j - integer, dimension (20) :: d - logical :: h - a = 6 - b = 8 - c = 11 - d(:) = -1 - e = 13 - f = 24 - g = 27 - h = .false. - i = 1 - j = 16 -!$omp para& -!$omp&llel & -!$omp if (a .eq. 6) private (b, c) shared (d) private (e) & - !$omp firstprivate(f) num_threads (a - 1) first& -!$ompprivate(g)default (shared) reduction (.or. : h) & -!$omp reduction(*:i) - if (i .ne. 1) h = .true. - i = 2 - if (f .ne. 24) h = .true. - if (g .ne. 27) h = .true. - e = 7 - b = omp_get_thread_num () - if (b .eq. 0) j = 24 - f = b - g = f - c = omp_get_num_threads () - if (c .gt. a - 1 .or. c .le. 0) h = .true. - if (b .ge. c) h = .true. - d(b + 1) = c - if (f .ne. g .or. f .ne. b) h = .true. -!$omp endparallel - if (h) call abort - if (a .ne. 6) call abort - if (j .ne. 24) call abort - if (d(1) .eq. -1) call abort - e = 1 - do g = 1, d(1) - if (d(g) .ne. d(1)) call abort - e = e * 2 - end do - if (e .ne. i) call abort - end subroutine test_parallel - - subroutine test_do_orphan - integer :: k, l -!$omp parallel do private (l) - do 600 k = 1, 16, 2 -600 l = k - end subroutine test_do_orphan - - subroutine test_do - integer :: i, j, k, l, n - integer, dimension (64) :: d - logical :: m - - j = 16 - d(:) = -1 - m = .true. - n = 24 -!$omp parallel num_threads (4) shared (i, k, d) private (l) & -!$omp&reduction (.and. : m) - if (omp_get_thread_num () .eq. 0) then - k = omp_get_num_threads () - end if - call test_do_orphan -!$omp do schedule (static) firstprivate (n) - do 200 i = 1, j - if (i .eq. 1 .and. n .ne. 24) call abort - n = i -200 d(n) = omp_get_thread_num () -!$omp enddo nowait - -!$omp do lastprivate (i) schedule (static, 5) - do 201 i = j + 1, 2 * j -201 d(i) = omp_get_thread_num () + 1024 - ! Implied omp end do here - - if (i .ne. 33) m = .false. - -!$omp do private (j) schedule (dynamic) - do i = 33, 48 - d(i) = omp_get_thread_num () + 2048 - end do -!$omp end do nowait - -!$omp do schedule (runtime) - do i = 49, 4 * j - d(i) = omp_get_thread_num () + 4096 - end do - ! Implied omp end do here -!$omp end parallel - if (.not. m) call abort - - j = 0 - do i = 1, 64 - if (d(i) .lt. j .or. d(i) .ge. j + k) call abort - if (i .eq. 16) j = 1024 - if (i .eq. 32) j = 2048 - if (i .eq. 48) j = 4096 - end do - end subroutine test_do - - subroutine test_sections - integer :: i, j, k, l, m, n - i = 9 - j = 10 - k = 11 - l = 0 - m = 0 - n = 30 - call omp_set_dynamic (.false.) - call omp_set_num_threads (4) -!$omp parallel num_threads (4) -!$omp sections private (i) firstprivate (j, k) lastprivate (j) & -!$omp& reduction (+ : l, m) -!$omp section - i = 24 - if (j .ne. 10 .or. k .ne. 11 .or. m .ne. 0) l = 1 - m = m + 4 -!$omp section - i = 25 - if (j .ne. 10 .or. k .ne. 11) l = 1 - m = m + 6 -!$omp section - i = 26 - if (j .ne. 10 .or. k .ne. 11) l = 1 - m = m + 8 -!$omp section - i = 27 - if (j .ne. 10 .or. k .ne. 11) l = 1 - m = m + 10 - j = 271 -!$omp end sections nowait -!$omp sections lastprivate (n) -!$omp section - n = 6 -!$omp section - n = 7 -!$omp endsections -!$omp end parallel - if (j .ne. 271 .or. l .ne. 0) call abort - if (m .ne. 4 + 6 + 8 + 10) call abort - if (n .ne. 7) call abort - end subroutine test_sections - - subroutine test_single - integer :: i, j, k, l - logical :: m - i = 200 - j = 300 - k = 400 - l = 500 - m = .false. -!$omp parallel num_threads (4), private (i, j), reduction (.or. : m) - i = omp_get_thread_num () - j = omp_get_thread_num () -!$omp single private (k) - k = 64 -!$omp end single nowait -!$omp single private (k) firstprivate (l) - if (i .ne. omp_get_thread_num () .or. i .ne. j) then - j = -1 - else - j = -2 - end if - if (l .ne. 500) j = -1 - l = 265 -!$omp end single copyprivate (j) - if (i .ne. omp_get_thread_num () .or. j .ne. -2) m = .true. -!$omp endparallel - if (m) call abort - end subroutine test_single -end |