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

libgfortran/ChangeLog

+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

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;