diff options
Diffstat (limited to 'libf2c/libI77/due.c')
| -rw-r--r-- | libf2c/libI77/due.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libf2c/libI77/due.c b/libf2c/libI77/due.c index 9e28eb9..cb80a39 100644 --- a/libf2c/libI77/due.c +++ b/libf2c/libI77/due.c @@ -14,6 +14,8 @@ c_due(cilist *a) f__sequential=f__formatted=f__recpos=0; f__external=1; f__curunit = &f__units[a->ciunit]; + if(a->ciunit>=MXUNIT || a->ciunit<0) + err(a->cierr,101,"startio"); f__elist=a; if(f__curunit->ufd==NULL && fk_open(DIR,UNF,a->ciunit) ) err(a->cierr,104,"due"); f__cf=f__curunit->ufd; |