[Bug fortran/71703] [7/8/9 Regression] [OOP] ICE in wide_int_to_tree, at tree.c:1488

["gscfq at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |gscfq@t-online.de

--- Comment #10 from G. Steinmetz <gscfq@t-online.de> ---

Update, related to pr84007.


$ gfortran-9-20181202 -c z1.f90
z1.f90:10:0:

   10 |    print *, same_type_as(x, y%a)
      |
internal compiler error: in wide_int_to_tree_1, at tree.c:1561
0xd6bd72 wide_int_to_tree_1
        ../../gcc/tree.c:1561
0xd6c29b wide_int_to_tree(tree_node*, poly_int<1u,
generic_wide_int<wide_int_ref_storage<false, true> > > const&)
        ../../gcc/tree.c:1686
0xd6c29b build_int_cst(tree_node*, poly_int<1u, long>)
        ../../gcc/tree.c:1355
0x70813e gfc_conv_same_type_as
        ../../gcc/fortran/trans-intrinsic.c:8285
0x718a10 gfc_conv_intrinsic_function(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-intrinsic.c:9388
0x6fd014 gfc_conv_function_expr
        ../../gcc/fortran/trans-expr.c:6905
0x6f166a gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8039
0x6f7115 gfc_conv_expr_reference(gfc_se*, gfc_expr*, bool)
        ../../gcc/fortran/trans-expr.c:8184
0x71e257 gfc_trans_transfer(gfc_code*)
        ../../gcc/fortran/trans-io.c:2584
0x6c2dc7 trans_code
        ../../gcc/fortran/trans.c:2038
0x71bd4e build_dt
        ../../gcc/fortran/trans-io.c:2026
0x6c2da7 trans_code
        ../../gcc/fortran/trans.c:2010
0x6ea3d4 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6509
0x676b06 translate_all_program_units
        ../../gcc/fortran/parse.c:6128
0x676b06 gfc_parse_file()
        ../../gcc/fortran/parse.c:6331
0x6bf5ff gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204