diff options
Diffstat (limited to 'libf2c/libI77/iio.c')
-rw-r--r-- | libf2c/libI77/iio.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/libf2c/libI77/iio.c b/libf2c/libI77/iio.c index 931f15aab63..58b2a75cddd 100644 --- a/libf2c/libI77/iio.c +++ b/libf2c/libI77/iio.c @@ -47,9 +47,6 @@ c_si(a) icilist *a; c_si(icilist *a) #endif { - if (f__init & 2) - f__fatal (131, "I/O recursion"); - f__init |= 2; f__elist = (cilist *)a; f__fmtbuf=a->icifmt; f__curunit = 0; @@ -126,16 +123,13 @@ integer s_wsfi(icilist *a) return(0); } integer e_rsfi(Void) -{ int n; - f__init &= ~2; - n = en_fio(); +{ int n = en_fio(); f__fmtbuf = NULL; return(n); } integer e_wsfi(Void) { int n; - f__init &= ~2; n = en_fio(); f__fmtbuf = NULL; if(f__svic->icirnum != 1 |