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 c7d891804b394a8119d255237656c2da51abf50d..eb6260fec0872c7c9cdaaf918b1f96ff3632d04c 100644 (file)
--- 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();
 }