[Bug fortran/57910] New: ICE (segfault) with deferred-lemgth strings

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57910

            Bug ID: 57910
           Summary: ICE (segfault) with deferred-lemgth strings
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: burnus at gcc dot gnu.org
            Blocks: 45170

Created attachment 30513
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=30513&action=edit
Test case

Test case by James Van Buskirk; from
https://groups.google.com/forum/#!topic/comp.lang.fortran/j5GITiX1aYI

Fails with:

test.f90: In function 'strtest':
test.f90:56:0: internal compiler error: Segmentation fault
    my_ptr => str_ptr(res,fstrlen(res))
 ^
0x9862ff crash_signal
        ../../gcc/toplev.c:333
0x97b51d tree_class_check
        ../../gcc/tree.h:3812
0x97b51d layout_decl(tree_node*, unsigned int)
        ../../gcc/stor-layout.c:553
0xb7352e build_decl_stat(unsigned int, tree_code, tree_node*, tree_node*)
        ../../gcc/tree.c:4360
0x807038 create_tmp_var_raw(tree_node*, char const*)
        ../../gcc/gimplify.c:403
0x5c9c7d gfc_create_var_np
        ../../gcc/fortran/trans.c:90
0x5c9c7d gfc_create_var(tree_node*, char const*)
        ../../gcc/fortran/trans.c:107
0x5ca987 gfc_evaluate_now_loc(unsigned int, tree_node*, stmtblock_t*)
        ../../gcc/fortran/trans.c:127
0x6021a6 gfc_apply_interface_mapping(gfc_interface_mapping*, gfc_se*,
gfc_expr*)
        ../../gcc/fortran/trans-expr.c:3555
0x5fe548 gfc_conv_procedure_call(gfc_se*, gfc_symbol*, gfc_actual_arglist*,
gfc_expr*, vec<tree_node*, va_gc, vl_embed>*)
        ../../gcc/fortran/trans-expr.c:4869
0x60035a gfc_conv_function_expr
        ../../gcc/fortran/trans-expr.c:5563