[Bug libfortran/34887] reverse tabbing before slash descriptor (regression vs. g77)

[tkoenig at gcc dot gnu dot org]

------- Comment #2 from tkoenig at gcc dot gnu dot org  2008-01-20 21:39 -------
What about this one-character patch?

Index: transfer.c
===================================================================
--- transfer.c  (revision 131679)
+++ transfer.c  (working copy)
@@ -1308,7 +1308,7 @@ formatted_transfer_scalar (st_parameter_
        case FMT_SLASH:
          consume_data_flag = 0 ;
          dtp->u.p.skips = dtp->u.p.pending_spaces = 0;
-         next_record (dtp, 0);
+         next_record (dtp, 1);
          break;

        case FMT_COLON:


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34887