tolerate short records on non-seekable input. DLW

SCCS-vsn: usr.bin/f77/libI77/sfe.c 1.8

diff --git a/usr/src/usr.bin/f77/libI77/sfe.c b/usr/src/usr.bin/f77/libI77/sfe.c
index 3a5df79..a948645 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/sfe.c
+++ b/usr/src/usr.bin/f77/libI77/sfe.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_sfe[] = "@(#)sfe.c     1.7";
+char id_sfe[] = "@(#)sfe.c     1.8";

  *
  * sequential formatted external routines
  */
  *
  * sequential formatted external routines
  */


@@ -167,7 +167,7 @@ x_tab()
        while(cursor--)
        {       if(reading)
                {       n = (*getn)();
        while(cursor--)
        {       if(reading)
                {       n = (*getn)();

-                       if(n=='\n') return(F_EREREC);
+                       if(n=='\n') return(cursor=0);   /* be tolerant */

                        if(n==EOF) return(EOF);
                }
                else    (*putn)(' ');   /* fill in the empty record */
                        if(n==EOF) return(EOF);
                }
                else    (*putn)(' ');   /* fill in the empty record */