re PR libfortran/22570 (Null Characters instead of blanks in text output.)

2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>

	PR libfortran/22570
	* io/unit.c (init_units): Replace BLANK_ZERO with
	BLANK_UNSPECIFIED.

From-SVN: r102288

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index b9bfc49281887fc5d1ebb301860f241a7aa43c1b..747ef9e9023cb9d49b178c65a5ffd047e54f1d20 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>
+
+       PR libfortran/22570
+       * io/unit.c (init_units): Replace BLANK_ZERO with
+       BLANK_UNSPECIFIED.
+
 2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>
 
        PR libfortran/21875  (FM111.f)

diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c
index 9058665fb9139440b2f472fc0a29ebc7c7d27e80..81e600067bf84531fbb3f5975cbcc330746df581 100644 (file)
--- a/libgfortran/io/unit.c
+++ b/libgfortran/io/unit.c
@@ -304,7 +304,7 @@ init_units (void)
       u->flags.access = ACCESS_SEQUENTIAL;
       u->flags.form = FORM_FORMATTED;
       u->flags.status = STATUS_OLD;
-      u->flags.blank = BLANK_ZERO;
+      u->flags.blank = BLANK_UNSPECIFIED;
       u->flags.position = POSITION_ASIS;
 
       u->recl = options.default_recl;
@@ -326,7 +326,7 @@ init_units (void)
       u->flags.access = ACCESS_SEQUENTIAL;
       u->flags.form = FORM_FORMATTED;
       u->flags.status = STATUS_OLD;
-      u->flags.blank = BLANK_ZERO;
+      u->flags.blank = BLANK_UNSPECIFIED;
       u->flags.position = POSITION_ASIS;
 
       u->recl = options.default_recl;
@@ -348,7 +348,7 @@ init_units (void)
       u->flags.access = ACCESS_SEQUENTIAL;
       u->flags.form = FORM_FORMATTED;
       u->flags.status = STATUS_OLD;
-      u->flags.blank = BLANK_ZERO;
+      u->flags.blank = BLANK_UNSPECIFIED;
       u->flags.position = POSITION_ASIS;
 
       u->recl = options.default_recl;