diff options
Diffstat (limited to 'contrib/libf2c/libU77/isatty_.c')
-rw-r--r-- | contrib/libf2c/libU77/isatty_.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/contrib/libf2c/libU77/isatty_.c b/contrib/libf2c/libU77/isatty_.c index fa2f56d..a781f75 100644 --- a/contrib/libf2c/libU77/isatty_.c +++ b/contrib/libf2c/libU77/isatty_.c @@ -30,6 +30,7 @@ extern integer G77_fnum_0 (integer *); logical G77_isatty_0 (integer * lunit) { + if (f__init != 1) f_init(); if (*lunit >= MXUNIT || *lunit < 0) err (1, 101, "isatty"); /* f__units is a table of descriptions for the unit numbers (defined |