------- 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
