diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-02 16:46:49 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-02 16:46:49 +0000 |
| commit | afb7916bfd4bee531e1790197c0f18572a939fa1 (patch) | |
| tree | 523027ca74b72188133b2806f8a82b2fd4213021 /libgfortran | |
| parent | 5a12b939d93e4d23895baef59dabe9930afbab2f (diff) | |
| download | ppe42-gcc-afb7916bfd4bee531e1790197c0f18572a939fa1.tar.gz ppe42-gcc-afb7916bfd4bee531e1790197c0f18572a939fa1.zip | |
PR libfortran/25116
* io/transfer.c (data_transfer_init): Don't set the default for
namelist I/O on preconnected files to UNFORMATTED.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107900 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 5 |
2 files changed, 10 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 90b431805cb..eaddca326b7 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-12-02 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR libfortran/25116 + * io/transfer.c (data_transfer_init): Don't set the default for + namelist I/O on preconnected files to UNFORMATTED. + 2005-11-30 Eric Botcazou <ebotcazou@libertysurf.fr> * libgfortran.h (ILP32 typedefs): Define _UINT8_T, _UINT32_T and diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 44cf27ec65a..84d3532deac 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; |
