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