[Bug fortran/34899] Continuation lines with <tab><number> not recognized

["burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- 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
-@option{-Wall}.
+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