! PR middle-end/103643
! { dg-do compile }

program test_task_affinity
  implicit none
  integer i
  integer, allocatable :: A(:)

  allocate (A(10))

  !$omp target
  !$omp task affinity(A)
  do i = 1, 10
     A(i) = 0
  end do
  !$omp end task
  !$omp end target

end program test_task_affinity