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