libgomp/testsuite/libgomp.oacc-fortran/lib-12.f90

   1 ! { dg-do run }
   2
   3 program 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
  30 end program