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

direct i/o. From-SVN: r22495
1998-09-20 10:51:55 +00:00 · 1998-09-20 10:51:55 +00:00 · 7ce87fcaf2
commit 7ce87fcaf2
parent 391705971a
1 changed files with 1 additions and 0 deletions
--- 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();
 }