libgomp/testsuite/libgomp.oacc-fortran/lib-13.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
   9   integer, parameter :: N = 1000000
  10   integer, parameter :: nprocs = 2
  11   integer :: k(nprocs)
  12
  13   k(:) = 0
  14
  15   !$acc data copy (k(1:nprocs))
  16     do j = 1, nprocs
  17       !$acc parallel async (j)
  18         do i = 1, N
  19           k(j) = k(j) + 1
  20         end do
  21       !$acc end parallel
  22     end do
  23   !$acc end data
  24
  25   if (acc_async_test (1) .neqv. .TRUE.) call abort
  26   if (acc_async_test (2) .neqv. .TRUE.) call abort
  27
  28   call acc_wait_all_async (nprocs + 1)
  29
  30   if (acc_async_test (nprocs + 1) .neqv. .TRUE.) call abort
  31
  32   call acc_wait_all ()
  33
  34 end program