Subversion Repositories openrisc

! { 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