This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[4.1] Backport tweaks to gfortran.dg/large_real_kind_form_io_2.f90
- From: Eric Botcazou <ebotcazou at libertysurf dot fr>
- To: gcc-patches at gcc dot gnu dot org
- Date: Sun, 4 Jun 2006 01:19:31 +0200
- Subject: [4.1] Backport tweaks to gfortran.dg/large_real_kind_form_io_2.f90
Tested on SPARC/Solaris, installed on 4.1 branch as obvious.
The 4.1.x Fortran testsuite is now clean for the first time ever on
SPARC/Solaris 2.6, 7, 8 9 and 10 (4.0.x was clean):
http://gcc.gnu.org/ml/gcc-testresults/2006-06/msg00185.html
http://gcc.gnu.org/ml/gcc-testresults/2006-06/msg00186.html
http://gcc.gnu.org/ml/gcc-testresults/2006-06/msg00187.html
http://gcc.gnu.org/ml/gcc-testresults/2006-06/msg00188.html
http://gcc.gnu.org/ml/gcc-testresults/2006-06/msg00189.html
Congratulations to the Fortran hackers!
2006-06-03 Eric Botcazou <ebotcazou@libertysurf.fr>
Backport from mainline:
2006-05-25 Eric Botcazou <ebotcazou@libertysurf.fr>
* gfortran.dg/large_real_kind_form_io_2.f90: UnXFAIL on SPARC/Solaris.
2006-05-05 Steve Ellcey <sje@cup.hp.com>
* gfortran.dg/large_real_kind_form_io_2.f90: Use nearest.
--
Eric Botcazou
Index: gfortran.dg/large_real_kind_form_io_2.f90
===================================================================
--- gfortran.dg/large_real_kind_form_io_2.f90 (revision 114340)
+++ gfortran.dg/large_real_kind_form_io_2.f90 (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run { xfail sparc*-sun-solaris2.* } }
+! { dg-do run }
! { dg-require-effective-target fortran_large_real }
! PR libfortran/24685
program large_real_kind_form_io_2
@@ -19,13 +19,13 @@
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 ()