diff options
| -rw-r--r-- | libf2c/ChangeLog | 6 | ||||
| -rw-r--r-- | libf2c/libI77/open.c | 7 |
2 files changed, 7 insertions, 6 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index b8de112..317542d 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +2002-07-10 Toon Moene <toon@moene.indiv.nluug.nl> + + * libI77/open.c (f_open): Do not indicate unformatted file + if record length is given without a FORMATTED/UNFORMATTED + specification. + 2002-06-25 DJ Delorie <dj@redhat.com> * aclocal.m4 (GLIBCPP_CONFIGURE): Split out diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index 29e9fde..790f5d6 100644 --- a/libf2c/libI77/open.c +++ b/libf2c/libI77/open.c @@ -148,12 +148,7 @@ f_open (olist * a) b->url = (int) a->orl; b->ublnk = a->oblnk && (*a->oblnk == 'z' || *a->oblnk == 'Z'); if (a->ofm == 0) - { - if (b->url > 0) - b->ufmt = 0; - else - b->ufmt = 1; - } + b->ufmt = 1; else if (*a->ofm == 'f' || *a->ofm == 'F') b->ufmt = 1; else |