diff options
Diffstat (limited to 'libf2c/libI77/open.c')
| -rw-r--r-- | libf2c/libI77/open.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index 2faf6fc..8a2b163 100644 --- a/libf2c/libI77/open.c +++ b/libf2c/libI77/open.c @@ -267,11 +267,13 @@ f_open (olist * a) opnerr (a->oerr, 108, "open"); #endif if (b->useek) - if (a->orl) - FSEEK (b->ufd, 0, SEEK_SET); - else if ((s = a->oacc) && (*s == 'a' || *s == 'A') - && FSEEK (b->ufd, 0, SEEK_END)) - opnerr (a->oerr, 129, "open"); + { + if (a->orl) + FSEEK (b->ufd, 0, SEEK_SET); + else if ((s = a->oacc) && (*s == 'a' || *s == 'A') + && FSEEK (b->ufd, 0, SEEK_END)) + opnerr (a->oerr, 129, "open"); + } return (0); } |