------- Comment #2 from jvdelisle at gcc dot gnu dot org 2007-04-06 20:18
-------
Index: scanner.c
===================================================================
--- scanner.c (revision 123528)
Here is a preliminary patch, I a, testing some combinations so the final patch
may vary from this a bit.
+++ scanner.c (working copy)
@@ -1071,7 +1071,7 @@ load_line (FILE *input, char **pbuf, int
if (c == '&')
seen_ampersand = 1;
- if ((c != ' ' && c != '&' && c != '!') || (c == '!' && !seen_ampersand))
+ if ((c != '&' && c != '!') || (c == '!' && !seen_ampersand))
seen_printable = 1;
if (gfc_current_form == FORM_FREE
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31495
