Skip to content

R
riscv-gcc-1
Commit 12c0e385 by Jerry DeLisle
Options

re PR libfortran/48787 (Invalid UP/DOWN rounding with F editing) 

2011-05-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/48787
	* gfortran.dg/round_3.f08: Add more checks.

From-SVN: r173233
parent 6f76a878
Showing with 21 additions and 9 deletions
gcc/testsuite/ChangeLog
2011-05-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/48787
* gfortran.dg/round_3.f08: Add more checks.
2011-04-30 Tobias Burnus <burnus@net-b.de>
PR fortran/48821
......
gcc/testsuite/gfortran.dg/round_3.f08
......@@ -4,10 +4,17 @@
program pr48615
call checkfmt("(RU,F17.0)", 2.5, " 3.")
call checkfmt("(RU,-1P,F17.1)", 2.5, " 0.3")
call checkfmt("(RU,E17.1)", 2.5, " 0.3E+01") ! 0.2E+01
call checkfmt("(RU,E17.1)", 2.5, " 0.3E+01")
call checkfmt("(RU,1P,E17.0)", 2.5, " 3.E+00")
call checkfmt("(RU,ES17.0)", 2.5, " 3.E+00") ! 2.E+00
call checkfmt("(RU,ES17.0)", 2.5, " 3.E+00")
call checkfmt("(RU,EN17.0)", 2.5, " 3.E+00")
call checkfmt("(RU,F2.0)", 2.0, "2.")
call checkfmt("(RU,F6.4)", 2.0, "2.0000")
call checkfmt("(RU,1P,E6.0E2)", 2.0, "2.E+00")
call checkfmt("(RU,1P,E7.1E2)", 2.5, "2.5E+00")
call checkfmt("(RU,1P,E10.4E2)", 2.5, "2.5000E+00")
call checkfmt("(RU,1P,G6.0E2)", 2.0, "2.E+00")
call checkfmt("(RU,1P,G10.4E2)", 2.3456e5, "2.3456E+05")
call checkfmt("(RD,F17.0)", 2.5, " 2.")
call checkfmt("(RD,-1P,F17.1)", 2.5, " 0.2")
......@@ -18,9 +25,9 @@ program pr48615
call checkfmt("(RC,F17.0)", 2.5, " 3.")
call checkfmt("(RC,-1P,F17.1)", 2.5, " 0.3")
call checkfmt("(RC,E17.1)", 2.5, " 0.3E+01") ! 0.2E+01
call checkfmt("(RC,E17.1)", 2.5, " 0.3E+01")
call checkfmt("(RC,1P,E17.0)", 2.5, " 3.E+00")
call checkfmt("(RC,ES17.0)", 2.5, " 3.E+00") ! 2.E+00
call checkfmt("(RC,ES17.0)", 2.5, " 3.E+00")
call checkfmt("(RC,EN17.0)", 2.5, " 3.E+00")
call checkfmt("(RN,F17.0)", 2.5, " 2.")
......@@ -53,20 +60,20 @@ program pr48615
call checkfmt("(RC,F17.0)", -2.5, " -3.")
call checkfmt("(RC,-1P,F17.1)", -2.5, " -0.3")
call checkfmt("(RC,E17.1)", -2.5, " -0.3E+01") ! -0.2E+01
call checkfmt("(RC,E17.1)", -2.5, " -0.3E+01")
call checkfmt("(RC,1P,E17.0)", -2.5, " -3.E+00")
call checkfmt("(RC,ES17.0)", -2.5, " -3.E+00") ! -2.E+00
call checkfmt("(RC,ES17.0)", -2.5, " -3.E+00")
call checkfmt("(RC,EN17.0)", -2.5, " -3.E+00")
call checkfmt("(RU,E17.1)", nearest(2.0, 1.0), " 0.3E+01") ! 0.2E+01
call checkfmt("(RD,E17.1)", nearest(3.0, -1.0), " 0.2E+01") ! 0.3E+01
call checkfmt("(RU,E17.1)", nearest(2.0, 1.0), " 0.3E+01")
call checkfmt("(RD,E17.1)", nearest(3.0, -1.0), " 0.2E+01")
contains
subroutine checkfmt(fmt, x, cmp)
character(len=*), intent(in) :: fmt
real, intent(in) :: x
character(len=*), intent(in) :: cmp
character(len=40) :: s
character(len=20) :: s
write(s, fmt) x
if (s /= cmp) call abort
......
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