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

direct i/o.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@22495 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c
index c7d8918..eb6260f 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();
 }