Skip to content

R
riscv-gcc-1
Commit c6ea4dd7 by Steve Ellcey Committed by Steve Ellcey
Options

* gfortran.dg/large_real_kind_form_io_2.f90: Use nearest. 

From-SVN: r113553
parent 1633cb7c
Showing with 6 additions and 2 deletions
gcc/testsuite/ChangeLog
2006-05-05 Steve Ellcey <sje@cup.hp.com>
* gfortran.dg/large_real_kind_form_io_2.f90: Use nearest.
2006-05-05 Francois-Xavier Coudert <coudert@clipper.ens.fr> 2006-05-05 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/26985 PR libfortran/26985
gcc/testsuite/gfortran.dg/large_real_kind_form_io_2.f90
...@@ -19,13 +19,13 @@ program large_real_kind_form_io_2 ...@@ -19,13 +19,13 @@ program large_real_kind_form_io_2
if (a /= b(1)) call abort () if (a /= b(1)) call abort ()
if (c /= b(2)) call abort () if (c /= b(2)) call abort ()
b(:) = tiny(0.0_k) b(:) = nearest(tiny(0.0_k),1.0_k)
write (tmp, *) b write (tmp, *) b
read (tmp, *) a, c read (tmp, *) a, c
if (a /= b(1)) call abort () if (a /= b(1)) call abort ()
if (c /= b(2)) call abort () if (c /= b(2)) call abort ()
b(:) = -tiny(0.0_k) b(:) = nearest(-tiny(0.0_k),-1.0_k)
write (tmp, *) b write (tmp, *) b
read (tmp, *) a, c read (tmp, *) a, c
if (a /= b(1)) call abort () if (a /= b(1)) 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