1! { dg-do compile }
2  procedure(foo), pointer :: ptr
3  integer :: i
4  ptr => foo
5!$omp do reduction (+ : ptr)	! { dg-error "Procedure pointer|not found" }
6  do i = 1, 10
7  end do
8!$omp simd linear (ptr)		! { dg-error "must be INTEGER" }
9  do i = 1, 10
10  end do
11contains
12  subroutine foo
13  end subroutine
14end
15