1! { dg-do compile } 2! 3! PR 47224: [F03] ICE with procedure pointer component 4! 5! Contributed by Martien Hulsen <m.a.hulsen@tue.nl> 6 7 type coefficients_t 8 procedure (real), pointer, nopass :: vfunc 9 end type 10 11 type(coefficients_t) :: coeff 12 real, dimension(3) :: x 13 14 print *, abs ( coeff%vfunc ( x(:) ) ) 15 16end 17