mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-28 02:44:44 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/25109 (formatted reads with embedded blanks in input fields)

Browse Source 
2005-11-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25109
	* io/unit.c (init_units): Set default flag to BLANK_NULL per
	requirement of F95 standard.  Set PAD_YES for stdin.

From-SVN: r107588
This commit is contained in:
Jerry DeLisle 2005-11-28 00:23:28 +00:00
parent fbd4d5e840
commit ee17607ab3
2 changed files with 11 additions and 3 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-11-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25109
* io/unit.c (init_units): Set default flag to BLANK_NULL per
requirement of F95 standard. Set PAD_YES for stdin.
2005-11-27 David Edelsohn <edelsohn@gnu.org>
* intrinsics/random.c: Include config.h

8
libgfortran/io/unit.c
View File

@ -393,6 +393,7 @@ get_unit (st_parameter_dt *dtp, int do_create)
internal_unit.flags.action = ACTION_READWRITE;
internal_unit.flags.form = FORM_FORMATTED;
internal_unit.flags.delim = DELIM_NONE;
internal_unit.flags.pad = PAD_YES;
return &internal_unit;
}
@ -453,7 +454,8 @@ init_units (void)
u->flags.access = ACCESS_SEQUENTIAL;
u->flags.form = FORM_FORMATTED;
u->flags.status = STATUS_OLD;
u->flags.blank = BLANK_UNSPECIFIED;
u->flags.blank = BLANK_NULL;
u->flags.pad = PAD_YES;
u->flags.position = POSITION_ASIS;
u->recl = options.default_recl;
@ -472,7 +474,7 @@ init_units (void)
u->flags.access = ACCESS_SEQUENTIAL;
u->flags.form = FORM_FORMATTED;
u->flags.status = STATUS_OLD;
u->flags.blank = BLANK_UNSPECIFIED;
u->flags.blank = BLANK_NULL;
u->flags.position = POSITION_ASIS;
u->recl = options.default_recl;
@ -491,7 +493,7 @@ init_units (void)
u->flags.access = ACCESS_SEQUENTIAL;
u->flags.form = FORM_FORMATTED;
u->flags.status = STATUS_OLD;
u->flags.blank = BLANK_UNSPECIFIED;
u->flags.blank = BLANK_NULL;
u->flags.position = POSITION_ASIS;
u->recl = options.default_recl;