From 7ce87fcaf2f56cb1c00252180fe5bf3d93fcdf6a Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gcc.gnu.org>
Date: Sun, 20 Sep 1998 10:51:55 +0000
Subject: [PATCH] Set f__init to avoid spurious recursive i/o error from
 formatted direct i/o.

From-SVN: r22495
---
 libf2c/libI77/sfe.c | 1 +
 1 file changed, 1 insertion(+)

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