5 integer, parameter :: n = 1024
6 integer, dimension (0:n-1) :: a, b, c
9 !$acc data copyout (a(0:n-1))
10 !$acc kernels present (a(0:n-1))
17 !$acc data copyout (b(0:n-1))
18 !$acc kernels present (b(0:n-1))
25 !$acc data copyin (a(0:n-1), b(0:n-1)) copyout (c(0:n-1))
26 !$acc kernels present (a(0:n-1), b(0:n-1), c(0:n-1))
34 if (c(i) .ne. a(i) + b(i)) call abort