------- Comment #1 from burnus at gcc dot gnu dot org 2008-01-21 08:45 -------
Real-world test case:
http://www.chara.gsu.edu/~gudehus/fits_library_package.html
Untested:
Index: scanner.c
===================================================================
--- scanner.c (revision 131688)
+++ scanner.c (working copy)
@@ -912,12 +912,21 @@
}
if (!openmp_flag)
- for (i = 0; i < 5; i++)
- {
- c = next_char ();
- if (c != ' ')
- goto not_continuation;
- }
+ {
+ c = next_char ();
+ if (c == '\t')
+ {
+ c = next_char ();
+ if (c < 1 || c > 9)
+ goto not_continuation;
+ }
+ else if (c != ' ')
+ goto not_continuation;
+ else
+ for (i = 1; i < 5; i++)
+ if ((c = next_char ()) != ' ')
+ goto not_continuation;
+ }
else
for (i = 0; i < 5; i++)
{
Index: invoke.texi
===================================================================
--- invoke.texi (revision 131688)
+++ invoke.texi (working copy)
@@ -499,10 +499,11 @@
@cindex warnings, tabs
@cindex tabulators
By default, tabs are accepted as whitespace, but tabs are not members
-of the Fortran Character Set. @option{-Wno-tabs} will cause a warning
-to be issued if a tab is encountered. Note, @option{-Wno-tabs} is active
-for @option{-pedantic}, @option{-std=f95}, @option{-std=f2003}, and
[EMAIL PROTECTED]
+of the Fortran Character Set. For continuation lines, a tab followed
+by a digit between 1 and 9 is supported. @option{-Wno-tabs} will cause
+a warning to be issued if a tab is encountered. Note, @option{-Wno-tabs}
+is active for @option{-pedantic}, @option{-std=f95}, @option{-std=f2003},
+and @option{-Wall}.
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |burnus at gcc dot gnu dot
|dot org |org
Status|UNCONFIRMED |ASSIGNED
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2008-01-21 08:45:12
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34899
