[Bug libfortran/20660] INQUIRE incorrectly reports the existence of UNITS

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