diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/scanner.c | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 694c67f..147891a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2009-02-19 Daniel Franke <franke.daniel@gmail.com> + + * scanner.c (load_line): At end of line, skip '\r' without setting + the truncation flag. + 2009-02-18 Daniel Kraft <d@domob.eu> * gfortran.texi: New chapter about compiler characteristics. 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; |