123456789101112131415161718192021222324252627282930 |
- ! { 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.) stop 1
- call acc_wait_async (2, 1)
- call acc_wait (1)
- if (acc_async_test (0) .neqv. .TRUE.) stop 2
- if (acc_async_test (1) .neqv. .TRUE.) stop 3
- if (acc_async_test (2) .neqv. .TRUE.) stop 4
- end program
|