1! { dg-do run } 2 3program main 4 use openacc 5 implicit none 6 7 integer :: i, j, n 8 9 j = 0 10 n = 1000000 11 12 !$acc parallel async (0) copy (j) 13 do i = 1, 1000000 14 j = j + 1 15 end do 16 !$acc end parallel 17 18 call acc_wait_async (0, 1) 19 20 ! Test unseen async-argument. 21 if (acc_async_test (2) .neqv. .TRUE.) stop 1 22 call acc_wait_async (2, 1) 23 24 call acc_wait (1) 25 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 29 30end program 31