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 12contains 13 14 pure real function w_cubic(q2) 15 real, intent(in) :: q2 16 w_cubic = 0. 17 end function 18 19end 20