mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-17 10:49:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/38735 ([4.4 Regresssion] Default BLANK= mode for internal units is wrong)

Browse Source 
2009-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/38735
	* io/unit.c (get_internal_unit): Set default BLANK= status to NULL for
	internal units.

From-SVN: r143102
This commit is contained in:
Jerry DeLisle 2009-01-05 22:55:15 +00:00
parent 6f9b088b5a
commit 8217a6359f
2 changed files with 7 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 @@
2009-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/38735
* io/unit.c (get_internal_unit): Set default BLANK= status to NULL for
internal units.
2008-12-29 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
PR fortran/31832

2
libgfortran/io/unit.c
View File

@ -437,7 +437,7 @@ get_internal_unit (st_parameter_dt *dtp)
iunit->flags.access = ACCESS_SEQUENTIAL;
iunit->flags.action = ACTION_READWRITE;
iunit->flags.blank = BLANK_UNSPECIFIED;
iunit->flags.blank = BLANK_NULL;
iunit->flags.form = FORM_FORMATTED;
iunit->flags.pad = PAD_YES;
iunit->flags.status = STATUS_UNSPECIFIED;