diff options
author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-12-02 17:46:49 +0100 |
---|---|---|
committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-12-02 16:46:49 +0000 |
commit | cc0de35e81bc14d3b72fcfc5e3ce01175f420320 (patch) | |
tree | 523027ca74b72188133b2806f8a82b2fd4213021 /libgfortran/io | |
parent | 0d451405750ebd0b4abe5ee84398ea7e082b27cb (diff) | |
download | gcc-cc0de35e81bc14d3b72fcfc5e3ce01175f420320.zip gcc-cc0de35e81bc14d3b72fcfc5e3ce01175f420320.tar.gz gcc-cc0de35e81bc14d3b72fcfc5e3ce01175f420320.tar.bz2 |
re PR libfortran/25116 ([4.0] namelist read from non-opened file)
PR libfortran/25116
* io/transfer.c (data_transfer_init): Don't set the default for
namelist I/O on preconnected files to UNFORMATTED.
From-SVN: r107900
Diffstat (limited to 'libgfortran/io')
-rw-r--r-- | libgfortran/io/transfer.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 44cf27e..84d3532 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -1239,11 +1239,14 @@ data_transfer_init (st_parameter_dt *dtp, int read_flag) 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; |