This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug libfortran/20660] INQUIRE incorrectly reports the existence of UNITS
- From: "fxcoudert at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 29 Mar 2005 07:13:00 -0000
- Subject: [Bug libfortran/20660] INQUIRE incorrectly reports the existence of UNITS
- References: <20050327215347.20660.kargl@gcc.gnu.org>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-03-29 07:12 -------
I don't have time to test it and submit it correctly, but I think the following
should work. I someone has time to do it before I do, please feel free to
test/comment/apply.
Index: inquire.c
===================================================================
RCS file: /cvsroot/gcc/gcc/libgfortran/io/inquire.c,v
retrieving revision 1.9
diff -p -u -r1.9 inquire.c
--- inquire.c 30 Jan 2005 13:16:19 -0000 1.9
+++ inquire.c 29 Mar 2005 07:10:57 -0000
@@ -46,7 +46,7 @@ inquire_via_unit (gfc_unit * u)
const char *p;
if (ioparm.exist != NULL)
- *ioparm.exist = (u != NULL);
+ *ioparm.exist = (u != NULL ? 1 : 0);
if (ioparm.opened != NULL)
*ioparm.opened = (u != NULL);
--
What |Removed |Added
----------------------------------------------------------------------------
CC| |fxcoudert at gcc dot gnu dot
| |org
Keywords| |patch
Last reconfirmed|2005-03-27 21:59:44 |2005-03-29 07:12:59
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20660