diff options
| author | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-03-23 22:31:56 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-03-23 22:31:56 +0000 |
| commit | 85624ffd341567caea1762d5534acf63c4d630db (patch) | |
| tree | 5709dfcf6b4ad0043c9cfb3b80a41d9a5a6e004b /libgfortran | |
| parent | 0b6945553acdcd114a0a816389b0512075706f62 (diff) | |
| download | gcc-85624ffd341567caea1762d5534acf63c4d630db.zip gcc-85624ffd341567caea1762d5534acf63c4d630db.tar.gz gcc-85624ffd341567caea1762d5534acf63c4d630db.tar.bz2 | |
* libgfortran/io/write.c (output_float): fix typo in last commit.
From-SVN: r96958
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/io/write.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index d22aa34..556adea 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -537,7 +537,7 @@ output_float (fnode *f, double value, int len) /* Pick a field size if none was specified. */ if (w <= 0) - w = nbefore + nzero + nafter + (sign != SIGN_NONE ? 2 : 1) + w = nbefore + nzero + nafter + (sign != SIGN_NONE ? 2 : 1); /* Create the ouput buffer. */ out = write_block (w); |