From 9c747b97475ae55912a172e8c94fcbe910e3f2c6 Mon Sep 17 00:00:00 2001 From: Daniel Franke Date: Thu, 19 Feb 2009 13:23:20 -0500 Subject: [PATCH] scanner.c (load_line): At end of line, skip '\r' without setting the truncation flag. 2009-02-19 Daniel Franke * scanner.c (load_line): At end of line, skip '\r' without setting the truncation flag. From-SVN: r144303 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/scanner.c | 3 +++ 2 files changed, 8 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 694c67f4608..147891a0822 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2009-02-19 Daniel Franke + + * scanner.c (load_line): At end of line, skip '\r' without setting + the truncation flag. + 2009-02-18 Daniel Kraft * gfortran.texi: New chapter about compiler characteristics. diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index c45827f08a1..f457b325084 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; -- 2.30.2