------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-03-29
09:01 -------
Stupid of me, sorry the noise. If I understand correctly the Standard, INQUIRE
on the existence of a unit should always return TRUE (since we can always open a
unit). The patch may be (testing in progress) as simple as:
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 = 1;
if (ioparm.opened != NULL)
*ioparm.opened = (u != NULL);
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20660
