diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2009-02-19 13:23:20 -0500 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2009-02-19 13:23:20 -0500 |
| commit | 9c747b97475ae55912a172e8c94fcbe910e3f2c6 (patch) | |
| tree | 7462643f85fc00962af6640d1e1a45d3cd352c27 /gcc/fortran/scanner.c | |
| parent | 68017cb410dc476560ef648be47189825fef365a (diff) | |
| download | gcc-9c747b97475ae55912a172e8c94fcbe910e3f2c6.zip gcc-9c747b97475ae55912a172e8c94fcbe910e3f2c6.tar.gz gcc-9c747b97475ae55912a172e8c94fcbe910e3f2c6.tar.bz2 | |
scanner.c (load_line): At end of line, skip '\r' without setting the truncation flag.
2009-02-19 Daniel Franke <franke.daniel@gmail.com>
* scanner.c (load_line): At end of line, skip '\r' without setting
the truncation flag.
From-SVN: r144303
Diffstat (limited to 'gcc/fortran/scanner.c')
| -rw-r--r-- | gcc/fortran/scanner.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index c45827f..f457b32 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -1469,6 +1469,9 @@ load_line (FILE *input, gfc_char_t **pbuf, int *pbuflen, const int *first_char) for (;;) { c = getc (input); + if (c == '\r') + continue; + if (c == '\n' || c == EOF) break; |