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