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

gcc/testsuite/ChangeLog

+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.
 

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)

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