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.fort...@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