[patch, libfortran] [4.4 Regresssion] PR38735 Default BLANK= mode for internal units is wrong

[Jerry DeLisle]

I will commit the following under obvious and simple rule with a test case. 
(fmt_bz_bn.f90 modified)

Regression tested on X86-64.

Regards,

Jerry

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.

Index: io/unit.c
===================================================================
--- io/unit.c	(revision 143097)
+++ io/unit.c	(working copy)
@@ -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;