From: Jerry DeLisle Date: Mon, 7 Jan 2008 02:53:04 +0000 (+0000) Subject: re PR fortran/34659 (corner case continuation line) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bd5db9de0dac29118308421acb4f1db79bea6609;p=gcc.git re PR fortran/34659 (corner case continuation line) 2008-01-06 Jerry DeLisle PR fortran/34659 * scanner.c (load_line): Do not count ' ' as printable when checking for continuations. From-SVN: r131371 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 6659ab50f70..8b5694216b2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2008-01-06 Jerry DeLisle + + PR fortran/34659 + * scanner.c (load_line): Do not count ' ' as printable when checking for + continuations. + 2008-01-06 Paul Thomas PR fortran/34545 diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 8e4a75cd647..da4c37b155e 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -1176,7 +1176,7 @@ load_line (FILE *input, char **pbuf, int *pbuflen) seen_ampersand = 1; } - if ((c != '&' && c != '!') || (c == '!' && !seen_ampersand)) + if ((c != '&' && c != '!' && c != ' ') || (c == '!' && !seen_ampersand)) seen_printable = 1; /* Is this a fixed-form comment? */