From 836f52f7c805aa3ee90c4b4d0f1ed177329d838d Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Mon, 7 Jan 2008 02:53:04 +0000 Subject: [PATCH] 2008-01-06 Jerry DeLisle PR fortran/34659 * scanner.c (load_line): Do not count ' ' as printable when checking for continuations. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131371 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 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? */ -- 2.11.4.GIT