+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>
PR libfortran/26985
if (a /= b(1)) 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
read (tmp, *) a, c
if (a /= b(1)) 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
read (tmp, *) a, c
if (a /= b(1)) call abort ()