mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-03 12:00:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/25116 ([4.0] namelist read from non-opened file)

Browse Source 
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
This commit is contained in:
Francois-Xavier Coudert 2005-12-02 17:46:49 +01:00 committed by François-Xavier Coudert
parent 0d45140575
commit cc0de35e81
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -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

5
libgfortran/io/transfer.c
View File

@ -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;