4 integer, parameter :: n
= 20, c
= 10
5 integer :: i
, a(n
), b(n
)
12 !$acc parallel copy (a)
29 !$acc parallel copyout (a)
37 if (a(i
) .ne
. b(i
)) STOP 1
45 !$acc parallel copyout (a) copyin (b)
56 !$acc parallel pcopy (a)
69 !$acc parallel pcopyout (a)
82 !$acc parallel pcopyout (a) pcopyin (b)
92 subroutine check (a
, b
, n
)
93 integer :: n
, a(n
), b(n
)
97 if (a(i
) .ne
. b(i
)) STOP 2