[Bug libfortran/25116] namelist read from non-opened file
fxcoudert at gcc dot gnu dot org
gcc-bugzilla@gcc.gnu.org
Mon Nov 28 15:59:00 GMT 2005
------- Comment #7 from fxcoudert at gcc dot gnu dot org 2005-11-28 15:59 -------
I think the following patch (no time yet to regtest it, and won't have time
soon, please feel free to test it) fixes it:
Index: transfer.c
===================================================================
--- transfer.c (revision 107563)
+++ transfer.c (working copy)
@@ -1239,11 +1239,14 @@
memset (&u_flags, '\0', sizeof (u_flags));
u_flags.access = ACCESS_SEQUENTIAL;
u_flags.action = ACTION_READWRITE;
+
/* Is it unformatted? */
- if (!(cf & (IOPARM_DT_HAS_FORMAT | IOPARM_DT_LIST_FORMAT)))
+ if (!(cf & (IOPARM_DT_HAS_FORMAT | IOPARM_DT_LIST_FORMAT
+ | IOPARM_DT_IONML_SET)))
u_flags.form = FORM_UNFORMATTED;
else
u_flags.form = FORM_UNSPECIFIED;
+
u_flags.delim = DELIM_UNSPECIFIED;
u_flags.blank = BLANK_UNSPECIFIED;
u_flags.pad = PAD_UNSPECIFIED;
--
fxcoudert at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |patch
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25116
More information about the Gcc-bugs
mailing list