[Bug fortran/78479] ICE in gfc_apply_init, at fortran/expr.c:4135

[gerhard.steinmetz.fortran@t-online.de]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---

Whereas, these variants are ok :


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


$ gfortran-7-20161120 z3.f90
$ a.out
           2           1 ab



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


$ gfortran-7-20161120 z4.f90
$ a.out
           3           1 ab