3 ! PR 51081: [F03] Proc-pointer assignment: Rejects valid internal proc
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
7 procedure(), pointer :: p1
8 procedure(real), pointer :: p2
10 p2
=> scale
! { dg-error "is invalid in procedure pointer assignment" }