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 10a7625..9c06b5c 100644 (file)
--- 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 5650dab..2bb36d9 100644 (file)
--- 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.