[Bug fortran/69860] ICE on missing end apostrophe with character(kind=4)

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

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
No ICE if "kind=4" is changed to "kind=1" :

$ cat z2.f90
program p
   character(len=2, kind=1) :: a = 'aa', b = 'bb
end


$ gfortran-6 -g z2.f90
z2.f90:2:46:

    character(len=2, kind=1) :: a = 'aa', b = 'bb
                                              1
Error: Unterminated character constant beginning at (1)