1! { dg-do compile } 2! 3! PR 64173: [F03] ICE involving procedure pointer component 4! 5! Contributed by Rich Townsend <townsend@astro.wisc.edu> 6 7 implicit none 8 9 type :: r_magnus_ivp_t 10 integer, allocatable :: jc 11 procedure(abscissa_), nopass, pointer :: abscissa_p 12 end type 13 14 abstract interface 15 function abscissa_ () result (x) 16 real, allocatable :: x(:) 17 end function 18 end interface 19 20contains 21 22 function doinit () result (iv) 23 type(r_magnus_ivp_t) :: iv 24 end function 25 26end 27