Set f__init to avoid spurious recursive i/o error from formatted

direct i/o.

From-SVN: r22495

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();
 }