diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2013-02-13 13:03:18 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-02-13 13:03:18 +0100 |
| commit | 6c8064fbd1222b5e30d6ef0d1c4e087346cf37db (patch) | |
| tree | f993e02394291195b5d42e80fe9acca868f5bd99 | |
| parent | c1874a876fe3c66e40e84862a0b79a4951f7476b (diff) | |
| download | gcc-6c8064fbd1222b5e30d6ef0d1c4e087346cf37db.zip gcc-6c8064fbd1222b5e30d6ef0d1c4e087346cf37db.tar.gz gcc-6c8064fbd1222b5e30d6ef0d1c4e087346cf37db.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/quad_2.f90 | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/quad_3.f90 | 3 |
3 files changed, 12 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b9d72a1..9e70c94 100644 --- 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 d3c90a0..996ed16 100644 --- 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 10c40fa..be8e3c3 100644 --- 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 |