[Bug fortran/65173] ICE while compiling wrong code

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #5 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
On my environment the ICE is gone only for z1.f90 and z8.f90.


$ gfortran-7-20160821 z7.f90
z7.f90:5:20:

       character x(:)
                    1
Error: Array component of structure at (1) must have an explicit shape
f951: internal compiler error: Segmentation fault
0xc1b63f crash_signal
        ../../gcc/toplev.c:335
0x688b02 gfc_is_constant_expr(gfc_expr*)
        ../../gcc/fortran/expr.c:899
0x688c1b gfc_is_constant_expr(gfc_expr*)
        ../../gcc/fortran/expr.c:902
0x6f47d6 resolve_component
        ../../gcc/fortran/resolve.c:13092
0x6f4eb4 resolve_component
        ../../gcc/fortran/resolve.c:12847
0x6f4eb4 resolve_fl_derived0
        ../../gcc/fortran/resolve.c:13329
0x6f508c resolve_fl_derived0
        ../../gcc/fortran/resolve.c:13298
0x6f508c resolve_fl_derived
        ../../gcc/fortran/resolve.c:13406
0x6f0206 resolve_symbol
        ../../gcc/fortran/resolve.c:13685
0x7098ab do_traverse_symtree
        ../../gcc/fortran/symbol.c:3930
0x6f319a resolve_types
        ../../gcc/fortran/resolve.c:15482
0x6eee5c gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:15593
0x6da18a resolve_all_program_units
        ../../gcc/fortran/parse.c:5855
0x6da18a gfc_parse_file()
        ../../gcc/fortran/parse.c:6107
0x71c602 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198