unit.c (get_internal_unit): Make default sign mode unspecified.

	* io/unit.c (get_internal_unit): Make default sign mode unspecified.
	(init_units): Make default sign mode unspecified.

From-SVN: r227178

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index db86bdc1a0132e34186b9ca25a12bc1705c43900..1f2bb7e6aa46c57366bca478ece5810a013a1994 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2015-08-25  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       * io/unit.c (get_internal_unit): Make default sign mode unspecified.
+       (init_units): Make default sign mode unspecified.
+
 2015-08-25  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        * libgfortran.h (check_buffered): Remove unused prototype.

diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c
index d7e6deacaf5b2413a0189be4bdbd5285464ab4f9..b5c7f3ebd9ce60b07287e437f5277bf953d7ba5f 100644 (file)
--- a/libgfortran/io/unit.c
+++ b/libgfortran/io/unit.c
@@ -507,7 +507,7 @@ get_internal_unit (st_parameter_dt *dtp)
   iunit->flags.form = FORM_FORMATTED;
   iunit->flags.pad = PAD_YES;
   iunit->flags.status = STATUS_UNSPECIFIED;
-  iunit->flags.sign = SIGN_SUPPRESS;
+  iunit->flags.sign = SIGN_UNSPECIFIED;
   iunit->flags.decimal = DECIMAL_POINT;
   iunit->flags.delim = DELIM_UNSPECIFIED;
   iunit->flags.encoding = ENCODING_DEFAULT;
@@ -606,7 +606,7 @@ init_units (void)
       u->flags.blank = BLANK_NULL;
       u->flags.pad = PAD_YES;
       u->flags.position = POSITION_ASIS;
-      u->flags.sign = SIGN_SUPPRESS;
+      u->flags.sign = SIGN_UNSPECIFIED;
       u->flags.decimal = DECIMAL_POINT;
       u->flags.delim = DELIM_UNSPECIFIED;
       u->flags.encoding = ENCODING_DEFAULT;
@@ -635,7 +635,7 @@ init_units (void)
       u->flags.status = STATUS_OLD;
       u->flags.blank = BLANK_NULL;
       u->flags.position = POSITION_ASIS;
-      u->flags.sign = SIGN_SUPPRESS;
+      u->flags.sign = SIGN_UNSPECIFIED;
       u->flags.decimal = DECIMAL_POINT;
       u->flags.delim = DELIM_UNSPECIFIED;
       u->flags.encoding = ENCODING_DEFAULT;
@@ -664,7 +664,7 @@ init_units (void)
       u->flags.status = STATUS_OLD;
       u->flags.blank = BLANK_NULL;
       u->flags.position = POSITION_ASIS;
-      u->flags.sign = SIGN_SUPPRESS;
+      u->flags.sign = SIGN_UNSPECIFIED;
       u->flags.decimal = DECIMAL_POINT;
       u->flags.encoding = ENCODING_DEFAULT;
       u->flags.async = ASYNC_NO;