OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Tobias Burnus 2013-02-13 13:03:18 +01:00
parent c1874a876f
commit 6c8064fbd1
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/testsuite/ChangeLog
View File

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

4
gcc/testsuite/gfortran.dg/quad_2.f90
View File

@ -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)

3
gcc/testsuite/gfortran.dg/quad_3.f90
View File

@ -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