From 85624ffd341567caea1762d5534acf63c4d630db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fran=C3=A7ois-Xavier=20Coudert?= <fxcoudert@gcc.gnu.org>
Date: Wed, 23 Mar 2005 22:31:56 +0000
Subject: [PATCH] * libgfortran/io/write.c (output_float): fix typo in last
 commit.

From-SVN: r96958
---
 libgfortran/io/write.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index d22aa344b05..556adea268b 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);