blob: b1f77a06ec654c30c822cb46feafea27fb641812 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { 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
|
