diff options
Diffstat (limited to 'libf2c/libI77/open.c')
| -rw-r--r-- | libf2c/libI77/open.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index 7c8f3de..dd47bdd 100644 --- a/libf2c/libI77/open.c +++ b/libf2c/libI77/open.c @@ -141,6 +141,7 @@ integer f_open(olist *a) int n; #endif if(f__init != 1) f_init(); + f__external = 1; if(a->ounit>=MXUNIT || a->ounit<0) err(a->oerr,101,"open"); f__curunit = b = &f__units[a->ounit]; |