[Bug fortran/67804] ICE on data initialization of type(character) with wrong data

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

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> 
---
Correct with a scalar string :

$ cat z2.f90
program p
   type t
      character :: c
   end type
   type(t) :: x
   data x /t('1')/
   print *, x
end

$ gfortran -g -O0 -Wall -fcheck=all -fno-frontend-optimize z2.f90
$ a.out
 1