| ! { dg-do compile } | |
| ! | |
| ! PR 64173: [F03] ICE involving procedure pointer component | |
| ! | |
| ! Contributed by Rich Townsend <townsend@astro.wisc.edu> | |
| implicit none | |
| type :: r_magnus_ivp_t | |
| integer, allocatable :: jc | |
| procedure(abscissa_), nopass, pointer :: abscissa_p | |
| end type | |
| abstract interface | |
| function abscissa_ () result (x) | |
| real, allocatable :: x(:) | |
| end function | |
| end interface | |
| contains | |
| function doinit () result (iv) | |
| type(r_magnus_ivp_t) :: iv | |
| end function | |
| end |