diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-08-25 16:27:43 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-08-25 16:27:43 +0000 |
| commit | ef53579721aed335c7f7b6c9a8fef38dcdfd169b (patch) | |
| tree | 53bd4ddb2387d944d8808355145a495d634d5ea5 /libgfortran | |
| parent | cdedf7c8367bde01c749184367004b097511148e (diff) | |
| download | gcc-ef53579721aed335c7f7b6c9a8fef38dcdfd169b.tar.gz | |
* io/unit.c (get_internal_unit): Make default sign mode unspecified.
(init_units): Make default sign mode unspecified.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@227178 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/unit.c | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index db86bdc1a01..1f2bb7e6aa4 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,10 @@ 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. 2015-08-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index d7e6deacaf5..b5c7f3ebd9c 100644 --- 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; |