2 integer, parameter :: n = 20, c = 10
3 integer :: i, a(n), b(n)
10 !$acc parallel copy (a)
27 !$acc parallel copyout (a)
35 if (a(i) .ne. b(i)) call abort
43 !$acc parallel copyout (a) copyin (b)
54 !$acc parallel pcopy (a)
67 !$acc parallel pcopyout (a)
80 !$acc parallel pcopyout (a) pcopyin (b)
90 subroutine check (a, b, n)
91 integer :: n, a(n), b(n)
95 if (a(i) .ne. b(i)) call abort