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