blob: 736ce1791aeda51c9a0e08e03c9f09f1931e270b [file] [log] [blame]
 ! Test the copy, copyin, copyout, pcopy, pcopyin, pcopyout, and pcreate ! clauses on kernels constructs. ! { dg-do run } program map integer, parameter :: n = 20, c = 10 integer :: i, a(n), b(n), d(n) a(:) = 0 b(:) = 0 ! COPY !\$acc kernels copy (a) !\$acc loop do i = 1, n a(i) = i end do !\$acc end kernels do i = 1, n b(i) = i end do call check (a, b, n) ! COPYOUT a(:) = 0 !\$acc kernels copyout (a) !\$acc loop do i = 1, n a(i) = i end do !\$acc end kernels do i = 1, n if (a(i) .ne. b(i)) stop 1 end do call check (a, b, n) ! COPYIN a(:) = 0 !\$acc kernels copyout (a) copyin (b) !\$acc loop do i = 1, n a(i) = i end do !\$acc end kernels call check (a, b, n) ! PRESENT_OR_COPY !\$acc kernels pcopy (a) !\$acc loop do i = 1, n a(i) = i end do !\$acc end kernels call check (a, b, n) ! PRESENT_OR_COPYOUT a(:) = 0 !\$acc kernels pcopyout (a) !\$acc loop do i = 1, n a(i) = i end do !\$acc end kernels call check (a, b, n) ! PRESENT_OR_COPYIN a(:) = 0 !\$acc kernels pcopyout (a) pcopyin (b) !\$acc loop do i = 1, n a(i) = i end do !\$acc end kernels call check (a, b, n) ! PRESENT_OR_CREATE a(:) = 0 !\$acc kernels pcopyout (a) pcreate (d) !\$acc loop do i = 1, n d(i) = i a(i) = d(i) end do !\$acc end kernels 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