diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-07-10 23:17:29 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2002-07-10 21:17:29 +0000 |
| commit | 21026f495be35294c682c6a59a904758260ebba1 (patch) | |
| tree | 749bfe271700d33bfad5112bb8419acf2dfd5124 | |
| parent | 086bbd21cd1f4ef5c83ac82601ddd0be2f20e357 (diff) | |
| download | gcc-21026f495be35294c682c6a59a904758260ebba1.zip gcc-21026f495be35294c682c6a59a904758260ebba1.tar.gz gcc-21026f495be35294c682c6a59a904758260ebba1.tar.bz2 | |
open.c (f_open): Do not indicate unformatted file if record length is given without a...
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.
From-SVN: r55380
| -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 |