From bd5db9de0dac29118308421acb4f1db79bea6609 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 7 Jan 2008 02:53:04 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/scanner.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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? */ -- 2.30.2