This is the mail archive of the mailing list for the GCC project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug libfortran/25116] namelist read from non-opened file

------- 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?  */
+                | IOPARM_DT_IONML_SET)))
        u_flags.form = FORM_UNFORMATTED;
        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

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]