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
This commit is contained in:
Daniel Franke 2009-02-19 13:23:20 -05:00 committed by Daniel Franke
parent 68017cb410
commit 9c747b9747
2 changed files with 8 additions and 0 deletions

View File

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

View File

@ -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;