From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 28 Aug 2006 05:17:09 +0000 (+0000)
Subject: 2006-08-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Tag: upstream/4.9.2~53278
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=239a6f66c059bf20aaa98d1eebbc40f2fa842d6a;p=platform%2Fupstream%2Flinaro-gcc.git

2006-08-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/28354
	* gfortran.dg/fmt_zero_precision.f90: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@116503 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index dd2456b..65900a7 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/28354
+	* gfortran.dg/fmt_zero_precision.f90: New test.
+
 2006-08-27  Mark Mitchell  <mark@codesourcery.com>
 
 	PR c++/28058
diff --git a/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90 b/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
new file mode 100644
index 0000000..ca66427
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
@@ -0,0 +1,30 @@
+! { dg-do run }
+! PR28354 Incorrect rounding of .99999 with f3.0 format specifier
+! Test case derived from PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+  write(*,50) -0.99999
+  write(*,50) 0.99999
+  write(*,50) -9.0
+  write(*,50) -0.99
+  write(*,50) -0.999
+  write(*,50) -0.999
+  write(*,50) -0.59
+  write(*,50) -0.49
+  write(*,100) 37.99999
+  write(*,100) 10345.0
+  write(*,100) 333.678
+  write(*,100) 333.499
+  50   format(f3.0,"<")
+ 100   format(f8.0,"<")
+  end
+! {dg-output "-1.<"
+! {dg-output " 1.<"
+! {dg-output "-9.<"
+! {dg-output "-1.<"
+! {dg-output "-1.<"
+! {dg-output "-1.<"
+! {dg-output "-1.<"
+! {dg-output " 0.<"
+! {dg-output "     38.<"
+! {dg-output "  10345.<"
+! {dg-output "    334.<"
+! {dg-output "    333.<"