gcc/testsuite/gfortran.dg/proc_ptr_43.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 58099: [4.8/4.9 Regression] [F03] over-zealous procedure-pointer error checking
   4 !
   5 ! Contributed by Daniel Price <daniel.price@monash.edu>
   6
   7   implicit none
   8   procedure(real), pointer :: wfunc
   9
  10   wfunc => w_cubic
  11
  12 contains
  13
  14   pure real function w_cubic(q2)
  15     real, intent(in) :: q2
  16     w_cubic = 0.
  17   end function
  18
  19 end