re PR fortran/34659 (corner case continuation line)

2008-01-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	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 6659ab50f70e322f7ebd34abc6c194d2292296b2..8b5694216b2fe1c3518cfbe4a53110ae7ca60327 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-01-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/34659
+       * scanner.c (load_line): Do not count ' ' as printable when checking for
+       continuations.
+
 2008-01-06  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/34545

diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index 8e4a75cd6470cb01b9064985a0cbe476ef07d536..da4c37b155e799300315df4e791f13492ca0a6a4 100644 (file)
--- 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?  */