1 ! Exercise the auto, independent, seq and tile loop clauses inside
7 integer, parameter :: n
= 20
8 integer :: i
, a(n
), b(n
)
15 !$acc kernels copy (a)
32 !$acc kernels copyout (a)
33 !$acc loop independent
40 if (a(i
) .ne
. b(i
)) call abort
48 !$acc kernels copyout (a) copyin (b)
59 subroutine check (a
, b
, n
)
60 integer :: n
, a(n
), b(n
)
64 if (a(i
) .ne
. b(i
)) call abort