From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 5 Jan 2009 22:55:15 +0000 (+0000)
Subject: 2009-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Tag: upstream/4.9.2~38255
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4141316b8ad405e3b326a6e59b5cbfdf9b2ffde8;p=platform%2Fupstream%2Flinaro-gcc.git

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.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@143102 138bc75d-0d04-0410-961f-82ee72b054a4
---

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  <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
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;