! { dg-do compile }
  procedure(foo), pointer :: ptr
  integer :: i
  ptr => foo
!$omp do reduction (+ : ptr)	! { dg-error "Procedure pointer|not found" }
  do i = 1, 10
  end do
!$omp simd linear (ptr)		! { dg-error "must be INTEGER" }
  do i = 1, 10
  end do
contains
  subroutine foo
  end subroutine
end