https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64173
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-valid-code
CC| |janus at gcc dot gnu.org
Summary|ICE involving derived type |[F03] ICE involving
|function pointers |procedure pointer component
--- Comment #3 from janus at gcc dot gnu.org ---
Here is a slightly reduced test case:
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
The backtrace on trunk is:
internal compiler error: in gfc_conv_descriptor_data_set, bei
fortran/trans-array.c:172
0x6803bd gfc_conv_descriptor_data_set(stmtblock_t*, tree_node*, tree_node*)
/home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-array.c:172
0x694b6c structure_alloc_comps
/home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-array.c:7785
0x695895 gfc_nullify_alloc_comp(gfc_symbol*, tree_node*, int)
/home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-array.c:7999
0x6a744e gfc_generate_function_code(gfc_namespace*)
/home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-decl.c:5806
0x6a6b67 gfc_generate_contained_functions
/home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-decl.c:4912
0x6a6b67 gfc_generate_function_code(gfc_namespace*)
/home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-decl.c:5707
0x67f7b8 gfc_generate_code(gfc_namespace*)
/home/jweil/gcc/gcc50/trunk/gcc/fortran/trans.c:1945
0x6399f0 translate_all_program_units
/home/jweil/gcc/gcc50/trunk/gcc/fortran/parse.c:4949
0x6399f0 gfc_parse_file()
/home/jweil/gcc/gcc50/trunk/gcc/fortran/parse.c:5146
0x678665 gfc_be_parse_file
/home/jweil/gcc/gcc50/trunk/gcc/fortran/f95-lang.c:222
