[Bug fortran/65173] ICE while compiling wrong code

[anlauf at gmx dot de]

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

Harald Anlauf <anlauf at gmx dot de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gmx dot de

--- Comment #2 from Harald Anlauf <anlauf at gmx dot de> ---
Further reduced test:

  implicit none
  type :: param_t
     character(1), dimension(256), allocatable :: names
  end type param_t
end

% gfc-trunk pr65173.f90
pr65173.f90:3:55:

      character(1), dimension(256), allocatable :: names
                                                       1
Error: Allocatable component of structure at (1) must have a deferred shape
f951: internal compiler error: gfc_resolve_expr(): Bad expression type
0x824c5e3 gfc_internal_error(char const*, ...)
        ../../trunk/gcc/fortran/error.c:1314
0x82b8817 gfc_resolve_expr(gfc_expr*)
        ../../trunk/gcc/fortran/resolve.c:6409
0x82c15ed resolve_index_expr
        ../../trunk/gcc/fortran/resolve.c:10958
0x82c16df resolve_charlen
        ../../trunk/gcc/fortran/resolve.c:11003
0x82c621d resolve_fl_derived0
        ../../trunk/gcc/fortran/resolve.c:13208
0x82c6bf7 resolve_fl_derived
        ../../trunk/gcc/fortran/resolve.c:13413
0x82c7656 resolve_symbol
        ../../trunk/gcc/fortran/resolve.c:13687
0x82de443 do_traverse_symtree
        ../../trunk/gcc/fortran/symbol.c:3817
0x82cb17f resolve_types
        ../../trunk/gcc/fortran/resolve.c:15476
0x82cb550 gfc_resolve(gfc_namespace*)
        ../../trunk/gcc/fortran/resolve.c:15586
0x82a6718 resolve_all_program_units
        ../../trunk/gcc/fortran/parse.c:5552
0x82a6718 gfc_parse_file()
        ../../trunk/gcc/fortran/parse.c:5804
0x82f40f5 gfc_be_parse_file
        ../../trunk/gcc/fortran/f95-lang.c:201