3 ! PR 64173: [F03] ICE involving procedure pointer component
5 ! Contributed by Rich Townsend <townsend@astro.wisc.edu>
10 integer, allocatable
:: jc
11 procedure(abscissa_
), nopass
, pointer :: abscissa_p
15 function abscissa_ () result (x
)
16 real, allocatable
:: x(:)
22 function doinit () result (iv
)
23 type(r_magnus_ivp_t
) :: iv