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