[fortran,committed] Remove use of ungetc

[Andreas Schwab]

FX <fxcoudert@gmail.com> writes:

>> 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 '#'.
>
>
> Oops, you're right. This shouldn't happen unless a user passed -
> fpreprocessed where she shouldn't have, but nonetheless it's a bad idea. I
> think the easiest way is thus to use fgetpos/fsetpos in that  function. Do
> you see an issue with the following?

If the file is guaranteed to be a plain file it should work.

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."