8 integer, parameter :: N
= 1000000
9 integer, parameter :: nprocs
= 2
14 !$acc data copy (k(1:nprocs))
16 !$acc parallel async (j)
24 call acc_wait_all_async (nprocs
+ 1)
26 call acc_wait (nprocs
+ 1)
28 if (acc_async_test (1) .neqv
. .TRUE
.) stop 1
29 if (acc_async_test (2) .neqv
. .TRUE
.) stop 2
30 if (acc_async_test (nprocs
+ 1) .neqv
. .TRUE
.) stop 3