From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Mon, 31 Oct 1983 12:15:23 +0000 (-0800)
Subject: tolerate short records on non-seekable input. DLW
X-Git-Tag: BSD-4_3-Snapshot-Development~10935
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/a77ebcfd7e8afd3a4f78174930ed1202595de813

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 3a5df79d92..a9486457a8 100644
--- 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
  */
@@ -167,7 +167,7 @@ x_tab()
 	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 */