| ! { dg-do run } | |
| program main | |
| use openacc | |
| implicit none | |
| integer :: i, j, n | |
| j = 0 | |
| n = 1000000 | |
| !$acc parallel async (0) copy (j) | |
| do i = 1, 1000000 | |
| j = j + 1 | |
| end do | |
| !$acc end parallel | |
| call acc_wait_async (0, 1) | |
| ! Test unseen async-argument. | |
| if (acc_async_test (2) .neqv. .TRUE.) call abort | |
| call acc_wait_async (2, 1) | |
| call acc_wait (1) | |
| if (acc_async_test (0) .neqv. .TRUE.) call abort | |
| if (acc_async_test (1) .neqv. .TRUE.) call abort | |
| if (acc_async_test (2) .neqv. .TRUE.) call abort | |
| end program |