[Bug fortran/78570] New: ICE in free_expr0, at fortran/expr.c:494

["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=78570

            Bug ID: 78570
           Summary: ICE in free_expr0, at fortran/expr.c:494
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

Follow-up of pr78479 :


$ cat z1.f90
program p
   type t
      character(3) :: c(2) = 'a' // ['b', 'c']
   end type
   type(t) :: z
   print *, size(z%c), len(z%c), z
end


$ cat z2.f90
program p
   type t
      character(2) :: c(2) = '' // ['a']
   end type
   type(t) :: z
   print *, size(z%c), len(z%c), z
end


$ gfortran-7-20161127 z1.f90
f951: internal compiler error: free_expr0(): Bad expr type
0x68ea6f gfc_internal_error(char const*, ...)
        ../../gcc/fortran/error.c:1327
0x68f7cb free_expr0
        ../../gcc/fortran/expr.c:494
0x68f81d gfc_free_expr(gfc_expr*)
        ../../gcc/fortran/expr.c:513
0x71b273 gfc_free_charlen(gfc_charlen*, gfc_charlen*)
        ../../gcc/fortran/symbol.c:3840
0x71b349 gfc_free_namespace(gfc_namespace*)
        ../../gcc/fortran/symbol.c:3890
0x71b89c gfc_symbol_done_2()
        ../../gcc/fortran/symbol.c:3926
0x6c33d8 gfc_done_2()
        ../../gcc/fortran/misc.c:264
0x6e61f6 translate_all_program_units
        ../../gcc/fortran/parse.c:6057
0x6e61f6 gfc_parse_file()
        ../../gcc/fortran/parse.c:6238
0x729ee2 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:202