Commit 8217a635 by Jerry DeLisle

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

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
parent 6f9b088b
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> 2008-12-29 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
PR fortran/31832 PR fortran/31832
......
...@@ -437,7 +437,7 @@ get_internal_unit (st_parameter_dt *dtp) ...@@ -437,7 +437,7 @@ get_internal_unit (st_parameter_dt *dtp)
iunit->flags.access = ACCESS_SEQUENTIAL; iunit->flags.access = ACCESS_SEQUENTIAL;
iunit->flags.action = ACTION_READWRITE; iunit->flags.action = ACTION_READWRITE;
iunit->flags.blank = BLANK_UNSPECIFIED; iunit->flags.blank = BLANK_NULL;
iunit->flags.form = FORM_FORMATTED; iunit->flags.form = FORM_FORMATTED;
iunit->flags.pad = PAD_YES; iunit->flags.pad = PAD_YES;
iunit->flags.status = STATUS_UNSPECIFIED; iunit->flags.status = STATUS_UNSPECIFIED;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment