From: Craig Burley <burley@gnu.org>
Date: Sat, 5 Sep 1998 22:14:46 +0000 (-0600)
Subject: dfe.c (e_rdfe): Restore resetting of f__init before returning...
X-Git-Tag: prereleases/egcs-1.1.1-pre~50
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0240581e23e59cf676216598efb2c54c71fdae34;p=thirdparty%2Fgcc.git

dfe.c (e_rdfe): Restore resetting of f__init before returning...

8
	* libI77/dfe.c (e_rdfe): Restore resetting of f__init
	before returning, to avoid spurious recursive-I/O
	diagnostic.

From-SVN: r22276
---

diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c
index c7d891804b39..eb6260fec087 100644
--- a/libf2c/libI77/sfe.c
+++ b/libf2c/libI77/sfe.c
@@ -35,5 +35,6 @@ integer e_wsfe(Void)
 
 integer e_wdfe(Void)
 {
+	f__init = 1;
 	return en_fio();
 }