From 1604dff529696ca7a6b28c45307b837ad3bad073 Mon Sep 17 00:00:00 2001
From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Thu, 29 Apr 1982 23:28:48 -0800
Subject: [PATCH] clearerr() if b->uend set. DLW

SCCS-vsn: usr.bin/f77/libI77/backspace.c 1.4
---
 usr/src/usr.bin/f77/libI77/backspace.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/usr/src/usr.bin/f77/libI77/backspace.c b/usr/src/usr.bin/f77/libI77/backspace.c
index 46bb8fddbb..401f0e5636 100644
--- a/usr/src/usr.bin/f77/libI77/backspace.c
+++ b/usr/src/usr.bin/f77/libI77/backspace.c
@@ -1,5 +1,5 @@
 /*
-char id_backspace[] = "@(#)backspace.c	1.3";
+char id_backspace[] = "@(#)backspace.c	1.4";
  *
  * Backspace records
  */
@@ -26,6 +26,7 @@ f_back(a) alist *a;
 	lfname = b->ufnm;
 	if(b->uend)
 	{	b->uend = NO;
+		clearerr(b->ufd);
 		return(OK);
 	}
 	if((x=ftell(b->ufd))==0) return(OK);
-- 
2.20.1