From: Jerry DeLisle Date: Mon, 7 Jan 2008 02:53:04 +0000 (+0000) Subject: re PR fortran/34659 (corner case continuation line) X-Git-Tag: releases/gcc-4.3.0~717 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bd5db9de0dac29118308421acb4f1db79bea6609;p=thirdparty%2Fgcc.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 6659ab50f70e..8b5694216b2f 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 8e4a75cd6470..da4c37b155e7 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? */