This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Patch, Fortran, committed to trunk] Fix libf2c/7236
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- To: gcc-patches at gcc dot gnu dot org
- Date: Wed, 10 Jul 2002 23:27:28 +0200
- Subject: [Patch, Fortran, committed to trunk] Fix libf2c/7236
- Organization: Moene Computational Physics, Maartensdijk, The Netherlands
L.S.,
The attached patch - applied to trunk after bootstrap (C/Fortran), make
-k check (Fortran only) and install - fixes GNATS entry libf2c/7236.
--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
Join GNU Fortran 95: http://g95.sourceforge.net/ (under construction)
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.
*** open.c.orig Mon Jun 3 19:42:47 2002
--- open.c Wed Jul 10 20:16:24 2002
*************** f_open (olist * a)
*** 149,158 ****
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;
! }
else if (*a->ofm == 'f' || *a->ofm == 'F')
b->ufmt = 1;
--- 149,153 ----
b->ublnk = a->oblnk && (*a->oblnk == 'z' || *a->oblnk == 'Z');
if (a->ofm == 0)
! b->ufmt = 1;
else if (*a->ofm == 'f' || *a->ofm == 'F')
b->ufmt = 1;