This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Other format: | [Raw text] |
Op ma 24-03-2003, om 22:38 schreef Toon Moene:
2003-03-24 Bud Davis <bdavis9659 at comcast dot net>
* libI77/open.c (f_open): A DIRECT ACCESS file is UNFORMATTED by default.
*** open.c.orig Wed Jul 10 23:17:29 2002 --- open.c Mon Mar 24 19:40:34 2003 *************** f_open (olist * a) *** 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; --- 149,156 ---- b->ublnk = a->oblnk && (*a->oblnk == 'z' || *a->oblnk == 'Z'); if (a->ofm == 0) ! if ((a->oacc) && (*a->oacc == 'D' || *a->oacc == 'd')) ! b->ufmt = 0; ! else ! b->ufmt = 1; else if (*a->ofm == 'f' || *a->ofm == 'F') b->ufmt = 1;
You needs braces here (http://www.gnu.org/prep/standards_25.html#SEC25).
-- Toon Moene - mailto:toon at moene dot indiv dot nluug dot nl - phoneto: +31 346 214290 Saturnushof 14, 3738 XG Maartensdijk, The Netherlands Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html GNU Fortran 95: http://gcc-g95.sourceforge.net/ (under construction)
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |