! PR middle-end/104757
! { dg-do compile }
! { dg-options "-O -fopenmp" }

module pr104757
  implicit none (external, type)
  integer :: ll
  !$omp declare target (ll)
contains
  subroutine foo (i1)
    !$omp declare target (foo)
    logical :: i1
    integer :: i
    !$omp distribute simd if(i1)
    do i = 1, 64
      ll = ll + 1
    end do
  end
end module