2 integer, parameter :: n = 20, c = 10, low = 5, high = 10
3 integer :: i, a(n), b(n)
10 !$acc parallel copy (a(low:high))
27 !$acc parallel copyout (a(low:high))
35 if (a(i) .ne. b(i)) call abort
43 !$acc parallel copyout (a(low:high)) copyin (b(low:high))
56 !$acc parallel pcopy (a(low:high))
69 !$acc parallel pcopyout (a(low:high))
82 !$acc parallel pcopyout (a(low:high)) &
83 !$acc & pcopyin (b(low:high))
93 subroutine check (a, b, n)
94 integer :: n, a(n), b(n)
98 if (a(i) .ne. b(i)) call abort