From: Toon Moene Date: Wed, 10 Jul 2002 21:17:29 +0000 (+0200) Subject: open.c (f_open): Do not indicate unformatted file if record length is given without... X-Git-Tag: releases/gcc-3.3.0~3873 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=21026f495be35294c682c6a59a904758260ebba1;p=thirdparty%2Fgcc.git 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 --- diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index b8de112a28d9..317542deac83 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 29e9fde282e5..790f5d67098d 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