From a77ebcfd7e8afd3a4f78174930ed1202595de813 Mon Sep 17 00:00:00 2001
From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Mon, 31 Oct 1983 04:15:23 -0800
Subject: [PATCH] tolerate short records on non-seekable input. DLW

SCCS-vsn: usr.bin/f77/libI77/sfe.c 1.8
---
 usr/src/usr.bin/f77/libI77/sfe.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 */
-- 
2.20.1