[Bug fortran/49430] ICE with allocatable length character in interface block

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

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code
                 CC|                            |burnus at gcc dot gnu.org
             Blocks|                            |45170

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-06-15 23:43:42 UTC ---
I get:

test.f90:19:0: internal compiler error: tree check: expected tree that contains
'typed' structure, have 'ï' in fold_convert_loc, at fold-const.c:1859

==14082== Invalid read of size 1
==14082==    at 0x72F9B2: fold_convert_loc (fold-const.c:1859)
==14082==    by 0xA7D3F6: build_range_type_1 (tree.c:7170)
==14082==    by 0x5C8C69: gfc_get_character_type_len_for_eltype
(trans-types.c:977)
==14082==    by 0x59EA63: gfc_conv_procedure_call (trans-expr.c:3538)
==14082==    by 0x59F271: gfc_conv_function_expr (trans-expr.c:4082)
==14082==    by 0x597D01: gfc_trans_assignment_1 (trans-expr.c:6112)

In trans-expr.c:3538:
(gdb) p *ts.u.cl
$2 = {length = 0x0, next = 0x0, length_from_typespec = 215 '\327',
      backend_decl = 0x1535340, passed_length = 0x2aaaacdd7f00,
      resolved = 6764539}

I wonder whether the
3538              type = gfc_get_character_type (ts.kind, ts.u.cl);
should be rather:
   type = gfc_get_character_type (ts.kind, ts->deferred ? NULL_TREE : ts.u.cl);