[fortran,committed] Remove use of ungetc

[Andreas Schwab]

FX <fxcoudert@gmail.com> writes:

> @@ -1989,13 +1996,12 @@ gfc_read_orig_filename (const char *file
>      return NULL;
>
>    c = getc (gfc_src_file);
> -  ungetc (c, gfc_src_file);
>
>    if (c != '#')
>      return NULL;

I wonder what happens with this character when gfc_read_orig_filename
returns NULL.  I think load_file would lose the first character of the
first or second line in the file if one of them doesn't start with '#'.

Andreas.

-- 
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."