http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46140
--- Comment #4 from Steve Kargl <sgk at troutmask dot apl.washington.edu> 2010-10-22 22:48:54 UTC --- On Fri, Oct 22, 2010 at 09:42:36PM +0000, kargl at gcc dot gnu.org wrote: > > Index: scanner.c > =================================================================== > --- scanner.c (revision 165861) > +++ scanner.c (working copy) > @@ -1867,7 +1867,9 @@ include_line (gfc_char_t *line) > read by anything else. */ > > filename = gfc_widechar_to_char (begin, -1); > - load_file (filename, NULL, false); > + if (load_file (filename, NULL, false) == FAILURE) > + exit (1); > + > gfc_free (filename); > return true; > } > The above patch passes regression testing without any new regressions.
