re PR fortran/56204 (gfortran.dg/quad_[23].f90 FAIL on Solaris 9/x86)

2013-02-13  Tobias Burnus  <burnus@net-b.de>
            Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>

        PR fortran/56204
        * gfortran.dg/quad_2.f90: Use "< epsilon" instead of "==".
        * gfortran.dg/quad_3.f90: Ditto.

From-SVN: r196011

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b9d72a1cbd97fa351352fbcf5cf5b82ae57c58ed..9e70c948e1a19208653e119c387b3e13fbea90f4 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2013-02-13  Tobias Burnus  <burnus@net-b.de>
+           Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+
+       PR fortran/56204
+       * gfortran.dg/quad_2.f90: Use "< epsilon" instead of "==".
+       * gfortran.dg/quad_3.f90: Ditto.
+
 2013-02-13  Kostya Serebryany  <kcc@google.com>
 
        * c-c++-common/asan/strncpy-overflow-1.c: Update the test
@@ -20,7 +27,7 @@
 2013-02-12  Dominique d'Humieres  <dominiq@lps.ens.fr>
            Tobias Burnus  <burnus@net-b.de>
 
-       PR fortran/56082
+       PR testsuite/56082
        * gfortran.dg/bind_c_bool_1.f90 (sub): Change kind=4
        to kind=2.
 

diff --git a/gcc/testsuite/gfortran.dg/quad_2.f90 b/gcc/testsuite/gfortran.dg/quad_2.f90
index d3c90a0bc2a42e1d72a14d3ce8fcbaa616eca1ca..996ed165d8b8a8d647ef16b1d06a29214de76fc7 100644 (file)
--- a/gcc/testsuite/gfortran.dg/quad_2.f90
+++ b/gcc/testsuite/gfortran.dg/quad_2.f90
@@ -31,9 +31,9 @@ program test_qp
    read (str2, *) fp3
    if (fp1 /= fp3) call abort()
    read (str3, *) fp4
-   if (fp2 /= fp4) call abort()
+   if (abs (fp2 - fp4)/fp2 > epsilon(fp2)) call abort()
    read (str4, *) fp4
-   if (fp2 /= fp4) call abort()
+   if (abs (fp2 - fp4)/fp2 > epsilon(fp2)) call abort()
 
    select case (qp)
      case (8)

diff --git a/gcc/testsuite/gfortran.dg/quad_3.f90 b/gcc/testsuite/gfortran.dg/quad_3.f90
index 10c40fab944753c93fb430b54bdb516927fca636..be8e3c38f1c3ccae04f136058affc528a1837d85 100644 (file)
--- a/gcc/testsuite/gfortran.dg/quad_3.f90
+++ b/gcc/testsuite/gfortran.dg/quad_3.f90
@@ -25,6 +25,7 @@ program test_qp
      read (tmp, *) a, c
 !     print *, 'same value read again:   ', a, c
 !     print *, 'difference: looks OK now ', a-b(1)
-     if (a-b(1) /= 0.0_qp .or. c-b(1) /= 0.0_qp) call abort()
+     if (abs (a-b(1))/a > epsilon(0.0_qp) &
+         .or. abs (c-b(1))/c > epsilon (0.0_qp)) call abort()
    end if
 end program test_qp