Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/map-1.f90 @ 143:76e1cf5455ef
add cbc_gc test
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 19:24:05 +0900 |
parents | 84e7813d76e9 |
children | 1830386684a0 |
line wrap: on
line source
program map integer, parameter :: n = 20, c = 10 integer :: i, a(n), b(n) a(:) = 0 b(:) = 0 ! COPY !$acc parallel copy (a) !$acc loop do i = 1, n a(i) = i end do !$acc end parallel do i = 1, n b(i) = i end do call check (a, b, n) ! COPYOUT a(:) = 0 !$acc parallel copyout (a) !$acc loop do i = 1, n a(i) = i end do !$acc end parallel do i = 1, n if (a(i) .ne. b(i)) STOP 1 end do call check (a, b, n) ! COPYIN a(:) = 0 !$acc parallel copyout (a) copyin (b) !$acc loop do i = 1, n a(i) = i end do !$acc end parallel call check (a, b, n) ! PRESENT_OR_COPY !$acc parallel pcopy (a) !$acc loop do i = 1, n a(i) = i end do !$acc end parallel call check (a, b, n) ! PRESENT_OR_COPYOUT a(:) = 0 !$acc parallel pcopyout (a) !$acc loop do i = 1, n a(i) = i end do !$acc end parallel call check (a, b, n) ! PRESENT_OR_COPYIN a(:) = 0 !$acc parallel pcopyout (a) pcopyin (b) !$acc loop do i = 1, n a(i) = i end do !$acc end parallel call check (a, b, n) end program map subroutine check (a, b, n) integer :: n, a(n), b(n) integer :: i do i = 1, n if (a(i) .ne. b(i)) STOP 2 end do end subroutine check