12 !$acc parallel async (0) copy (j)
18 call acc_wait_async (0, 1)
20 ! Test unseen async-argument.
21 if (acc_async_test (2) .neqv
. .TRUE
.) stop 1
22 call acc_wait_async (2, 1)
26 if (acc_async_test (0) .neqv
. .TRUE
.) stop 2
27 if (acc_async_test (1) .neqv
. .TRUE
.) stop 3
28 if (acc_async_test (2) .neqv
. .TRUE
.) stop 4