From 8217a6359fd750fcfee58f796b388b3d736e60bf Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 5 Jan 2009 22:55:15 +0000 Subject: re PR libfortran/38735 ([4.4 Regresssion] Default BLANK= mode for internal units is wrong) 2009-01-05 Jerry DeLisle PR libfortran/38735 * io/unit.c (get_internal_unit): Set default BLANK= status to NULL for internal units. From-SVN: r143102 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/unit.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'libgfortran') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index aca6e93..f71521f 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2009-01-05 Jerry DeLisle + + PR libfortran/38735 + * io/unit.c (get_internal_unit): Set default BLANK= status to NULL for + internal units. + 2008-12-29 John David Anglin PR fortran/31832 diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index a5d660c..0af002d 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -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; -- cgit v1.1