[Bug fortran/66461] [4.9/5/6/7 Regression] ICE on missing end program in fixed source

[jvdelisle at gcc dot gnu.org]

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

--- Comment #21 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
(In reply to Mikael Morin from comment #20)
> (In reply to Mikael Morin from comment #19)
> > 
> > what I don't understand is that error itself, 
> 
> It comes from scanner.c's end_flag which is cleared on the first match, but
> it is set at some point later, and it's not restored to its cleared state
> when the locus is restored before the second match.
> The end_flag basically disables all of the continuation and comment lines
> handling in gfc_next_char_literal.

Mikael thanks for help! I have not checked, but unexpected_eof in parse.c does
not clear end_flag after backing up.  Maybe thats it.