gcc/testsuite/gfortran.dg/gomp/pr103643.f90

   1 ! PR middle-end/103643
   2 ! { dg-do compile }
   3
   4 program test_task_affinity
   5   implicit none
   6   integer i
   7   integer, allocatable :: A(:)
   8
   9   allocate (A(10))
  10
  11   !$omp target
  12   !$omp task affinity(A)
  13   do i = 1, 10
  14      A(i) = 0
  15   end do
  16   !$omp end task
  17   !$omp end target
  18
  19 end program test_task_affinity