Commit d1a5b5e3 by Dominique d'Humieres Committed by Jerry DeLisle

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
parent 91d45414
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> 2014-01-20 Richard Sandiford <rdsandiford@googlemail.com>
* lib/target-supports.exp (force_conventional_output_for): New * lib/target-supports.exp (force_conventional_output_for): New
......
...@@ -28,6 +28,11 @@ program pr48615 ...@@ -28,6 +28,11 @@ program pr48615
call checkfmt("(RU,G9.3)", 891.1, " 892.") ! pr59836 call checkfmt("(RU,G9.3)", 891.1, " 892.") ! pr59836
call checkfmt("(RD,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("(RU,F2.0)", 0.09, "1.") ! 0.
call checkfmt("(RD,F3.0)", -0.09, "-1.") ! -0. call checkfmt("(RD,F3.0)", -0.09, "-1.") ! -0.
call checkfmt("(RU,F2.0)", 0.9, "1.") ! pr59836 call checkfmt("(RU,F2.0)", 0.9, "1.") ! pr59836
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment