diff options
author | Dave Love <fx@gcc.gnu.org> | 1998-09-20 10:51:55 +0000 |
---|---|---|
committer | Dave Love <fx@gcc.gnu.org> | 1998-09-20 10:51:55 +0000 |
commit | 7ce87fcaf2f56cb1c00252180fe5bf3d93fcdf6a (patch) | |
tree | 1f6df388606e3be20ded5eb31fff4763557341ab /libf2c | |
parent | 391705971a17c18ac3f3ca2b02979c1a52a945c6 (diff) | |
download | gcc-7ce87fcaf2f56cb1c00252180fe5bf3d93fcdf6a.zip gcc-7ce87fcaf2f56cb1c00252180fe5bf3d93fcdf6a.tar.gz gcc-7ce87fcaf2f56cb1c00252180fe5bf3d93fcdf6a.tar.bz2 |
Set f__init to avoid spurious recursive i/o error from formatted
direct i/o.
From-SVN: r22495
Diffstat (limited to 'libf2c')
-rw-r--r-- | libf2c/libI77/sfe.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c index c7d8918..eb6260f 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(); } |