[Bug fortran/64589] Linking error due to undefined integer symbol with unlimited polymorphism

["janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64589

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2015-01-14
                 CC|                            |janus at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
Confirmed. I get an ICE on this variant:


module m
contains
  subroutine fmt()
    class(*), pointer :: arg
    select type (arg)
    type is (integer)
    end select
  end subroutine
end module

program p
contains
  subroutine makeString(arg1)
    class(*) :: arg1
  end subroutine 
  subroutine getSuffix()
    use m
    call makeString(1)
  end subroutine
end



 program p
 1
internal compiler error: in build_function_decl, bei fortran/trans-decl.c:1985
0x694062 build_function_decl
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-decl.c:1982
0x69ac6e gfc_get_symbol_decl(gfc_symbol*)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-decl.c:1469
0x6aba97 gfc_conv_variable
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-expr.c:2008
0x6a7f22 gfc_conv_expr(gfc_se*, gfc_expr*)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-expr.c:6617
0x6aa56a gfc_conv_initializer(gfc_expr*, gfc_typespec*, tree_node*, bool, bool,
bool)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-expr.c:5990
0x6aa85c gfc_conv_structure(gfc_se*, gfc_expr*, int)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-expr.c:6508
0x6aa672 gfc_conv_initializer(gfc_expr*, gfc_typespec*, tree_node*, bool, bool,
bool)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-expr.c:6005
0x69a9c0 gfc_get_symbol_decl(gfc_symbol*)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-decl.c:1603
0x6ad21e gfc_conv_intrinsic_to_class(gfc_se*, gfc_expr*, gfc_typespec)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-expr.c:581
0x6a4431 gfc_conv_procedure_call(gfc_se*, gfc_symbol*, gfc_actual_arglist*,
gfc_expr*, vec<tree_node*, va_gc, vl_embed>*)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-expr.c:4273
0x6d476e gfc_trans_call(gfc_code*, bool, tree_node*, tree_node*, bool)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-stmt.c:419
0x67cdae trans_code
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans.c:1728
0x69da5f gfc_generate_function_code(gfc_namespace*)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-decl.c:5807
0x69dd57 gfc_generate_contained_functions
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-decl.c:4946
0x69dd57 gfc_generate_function_code(gfc_namespace*)
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/trans-decl.c:5738
0x639eb0 translate_all_program_units
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/parse.c:4947
0x639eb0 gfc_parse_file()
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/parse.c:5144
0x678ba5 gfc_be_parse_file
    /home/jweil/gcc/gcc50/trunk/gcc/fortran/f95-lang.c:228