From 21026f495be35294c682c6a59a904758260ebba1 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Wed, 10 Jul 2002 23:17:29 +0200 Subject: open.c (f_open): Do not indicate unformatted file if record length is given without a... 2002-07-10 Toon Moene * libI77/open.c (f_open): Do not indicate unformatted file if record length is given without a FORMATTED/UNFORMATTED specification. From-SVN: r55380 --- libf2c/ChangeLog | 6 ++++++ libf2c/libI77/open.c | 7 +------ 2 files changed, 7 insertions(+), 6 deletions(-) (limited to 'libf2c') 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 + + * 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 * 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 -- cgit v1.1