From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sun, 19 Oct 2008 18:36:21 +0000 (+0000)
Subject: re PR fortran/37834 (write(*,'(f0.0)') 0.0  prints "." instead of "0.")
X-Git-Tag: releases/gcc-4.4.0~1998
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=f13c001e1a46aa1d4b3cd99cede7a3d07b239d9a;p=thirdparty%2Fgcc.git

re PR fortran/37834 (write(*,'(f0.0)') 0.0  prints "." instead of "0.")

2008-10-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org

	PR libfortran/37834
	* io/write_float.def (output_float): Emit '0.' for special case of
	format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'.

From-SVN: r141231
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index cf3d93026732..9b2d18d58cf4 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-10-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org
+
+	PR libfortran/37834
+	* io/write_float.def (output_float): Emit '0.' for special case of
+	format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'.
+
 2008-10-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org
 
 	PR libfortran/37863
diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index 73a6ed14a1b2..d55e3799946d 100644
--- a/libgfortran/io/write_float.def
+++ b/libgfortran/io/write_float.def
@@ -119,6 +119,22 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
 	sign = calculate_sign (dtp, sign_bit);
       else
 	sign = calculate_sign (dtp, 0);
+
+      /* Handle special cases.  */
+      if (w == 0)
+	w = 2;
+
+      /* For this one we choose to not output a decimal point.
+	 F95 10.5.1.2.1  */
+      if (w == 1 && ft == FMT_F)
+	{
+	  out = write_block (dtp, w);
+	  if (out == NULL)
+	    return;
+	  *out = '0';
+	  return;
+	}
+	      
     }
 
   /* Normalize the fractional component.  */