src/gcc/gcc/testsuite/gfortran.dg/proc_ptr_43.f90

! { dg-do compile }
!
! PR 58099: [4.8/4.9 Regression] [F03] over-zealous procedure-pointer error checking
!
! Contributed by Daniel Price <daniel.price@monash.edu>

  implicit none
  procedure(real), pointer :: wfunc

  wfunc => w_cubic 
 
contains

  pure real function w_cubic(q2)
    real, intent(in) :: q2
    w_cubic = 0.
  end function

end