diff options
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; |