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

re PR libfortran/22570 (Null Characters instead of blanks in text output.)

Browse Source 
2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>

	PR libfortran/22570
	* io/unit.c (init_units): Replace BLANK_ZERO with
	BLANK_UNSPECIFIED.

From-SVN: r102288
This commit is contained in:
Jerry DeLisle 2005-07-22 17:43:31 +00:00 committed by Paul Thomas
parent 9881e3e5e8
commit d1cc97e081
2 changed files with 9 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-07-22 Jerry DeLisle <jvdelisle@verizon.net>
PR libfortran/22570
* io/unit.c (init_units): Replace BLANK_ZERO with
BLANK_UNSPECIFIED.
2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>
PR libfortran/21875 (FM111.f)

6
libgfortran/io/unit.c
View File

@ -304,7 +304,7 @@ init_units (void)
u->flags.access = ACCESS_SEQUENTIAL;
u->flags.form = FORM_FORMATTED;
u->flags.status = STATUS_OLD;
u->flags.blank = BLANK_ZERO;
u->flags.blank = BLANK_UNSPECIFIED;
u->flags.position = POSITION_ASIS;
u->recl = options.default_recl;
@ -326,7 +326,7 @@ init_units (void)
u->flags.access = ACCESS_SEQUENTIAL;
u->flags.form = FORM_FORMATTED;
u->flags.status = STATUS_OLD;
u->flags.blank = BLANK_ZERO;
u->flags.blank = BLANK_UNSPECIFIED;
u->flags.position = POSITION_ASIS;
u->recl = options.default_recl;
@ -348,7 +348,7 @@ init_units (void)
u->flags.access = ACCESS_SEQUENTIAL;
u->flags.form = FORM_FORMATTED;
u->flags.status = STATUS_OLD;
u->flags.blank = BLANK_ZERO;
u->flags.blank = BLANK_UNSPECIFIED;
u->flags.position = POSITION_ASIS;
u->recl = options.default_recl;