4 integer, parameter :: N
= 8
5 real, allocatable
:: a(:), b(:)
13 !$acc enter data copyin (a(1:N), b(1:N))
21 !$acc exit data copyout (a(1:N), b(1:N))
24 if (a(i
) .ne
. 3.0) call abort
25 if (b(i
) .ne
. 3.0) call abort
31 !$acc enter data copyin (a(1:N), b(1:N))
39 !$acc exit data copyout (a(1:N), b(1:N))
42 if (a(i
) .ne
. 5.0) call abort
43 if (b(i
) .ne
. 5.0) call abort