[Bug fortran/64173] [F03] ICE involving procedure pointer component

[janus at gcc dot gnu.org]

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