4 integer, parameter :: N
= 8
5 real, allocatable
:: a(:,:), b(:,:)
13 !$acc enter data copyin (a(1:N,1:N), b(1:N,1:N))
23 !$acc exit data copyout (a(1:N,1:N), b(1:N,1:N))
27 if (a(j
,i
) .ne
. 3.0) call abort
28 if (b(j
,i
) .ne
. 3.0) call abort