Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/nestedfn4.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | a06113de4d67 |
children | 1830386684a0 |
line wrap: on
line source
program foo integer :: i, j, k integer :: a(10), c(10) k = 2 a(:) = 0 call test1 call test2 do i = 1, 10 if (a(i) .ne. 10 * i) STOP 1 end do !$omp parallel do reduction (+:c) do i = 1, 10 c = c + a end do do i = 1, 10 if (c(i) .ne. 10 * a(i)) STOP 2 end do !$omp parallel do lastprivate (j) do j = 1, 10, k end do if (j .ne. 11) STOP 3 contains subroutine test1 integer :: i integer :: b(10) do i = 1, 10 b(i) = i end do c(:) = 0 !$omp parallel do reduction (+:a) do i = 1, 10 a = a + b end do end subroutine test1 subroutine test2 !$omp parallel do lastprivate (j) do j = 1, 10, k end do if (j .ne. 11) STOP 4 end subroutine test2 end program foo