! { dg-do compile }
!
! PR 54387: [F03] Wrongly accepts non-proc result variable on the RHS of a proc-pointer assignment
!
! Contributed by James Van Buskirk

integer function foo()
  procedure(), pointer :: i
  i => foo  ! { dg-error "is invalid as proc-target in procedure pointer assignment" }
end 

recursive function bar() result (res)
  integer :: res
  procedure(), pointer :: j
  j => bar
end