! { dg-do compile } ! { dg-options "-std=f2003" } ! ! PR39998: Procedure Pointer Assignments: Statement Functions & Internal Functions. ! ! Contributed by Tobias Burnus procedure(), pointer :: p f(x) = x**2 ! { dg-warning "Obsolescent feature" } p => f ! { dg-error "invalid in procedure pointer assignment" } p => sub ! { dg-error "invalid in procedure pointer assignment" } contains subroutine sub end subroutine sub end