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

   1 ! { dg-do run }
   2 ! { dg-xfail-run-if "TODO" { openacc_nvidia_accel_selected } { "-O0" "-O1" } { "" } }
   3
   4 program main
   5   use openacc
   6   implicit none
   7
   8   integer :: i, j, n
   9
  10   j = 0
  11   n = 1000000
  12
  13   !$acc parallel async (0) copy (j)
  14     do i = 1, 1000000
  15       j = j + 1
  16     end do
  17   !$acc end parallel
  18
  19   call acc_wait_async (0, 1)
  20
  21   if (acc_async_test (0) .neqv. .TRUE.) call abort
  22
  23   if (acc_async_test (1) .neqv. .TRUE.) call abort
  24
  25   call acc_wait (1)
  26
  27 end program