From: Dominique d'Humieres <dominiq@lps.ens.fr>
Date: Tue, 21 Jan 2014 02:44:13 +0000 (+0100)
Subject: round_3.f08: Add more cases.
X-Git-Tag: releases/gcc-4.9.0~1505
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=d1a5b5e3725895a52432d1abb251ebd332f7a643;p=thirdparty%2Fgcc.git

round_3.f08: Add more cases.

2014-01-20  Dominique d'Humieres  <dominiq@lps.ens.fr>

	* gfortran.dg/round_3.f08: Add more cases.

From-SVN: r206866
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 10a7625da1a6..9c06b5c4282e 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2014-01-20  Dominique d'Humieres  <dominiq@lps.ens.fr>
+
+	* gfortran.dg/round_3.f08: Add more cases.
+	
 2014-01-20  Richard Sandiford  <rdsandiford@googlemail.com>
 
 	* lib/target-supports.exp (force_conventional_output_for): New
diff --git a/gcc/testsuite/gfortran.dg/round_3.f08 b/gcc/testsuite/gfortran.dg/round_3.f08
index 5650dab31ca4..2bb36d9eeef9 100644
--- a/gcc/testsuite/gfortran.dg/round_3.f08
+++ b/gcc/testsuite/gfortran.dg/round_3.f08
@@ -27,6 +27,11 @@ program pr48615
 
     call checkfmt("(RU,G9.3)",  891.1,  " 892.")      ! pr59836
     call checkfmt("(RD,G9.3)", -891.1,  "-892.")      ! pr59836
+    
+    call checkfmt("(RU,F6.4)",     0.00006,  "0.0001")! 0.
+    call checkfmt("(RU,F5.3)",     0.0007,  "0.001")  ! 0.
+    call checkfmt("(RU,F4.2)",     0.008,  "0.01")    ! 0.
+    call checkfmt("(RU,F3.1)",     0.09,  "0.1")      ! 0.
 
     call checkfmt("(RU,F2.0)",     0.09,  "1.")       ! 0.
     call checkfmt("(RD,F3.0)",     -0.09,  "-1.")     ! -0.