procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/46223 (gfortran.dg/bessel_7.f90 failures on s390-ibm-linux-gnu)

Browse source 
2010-11-10  Tobias Burnus  <burnus@net-b.de>

        PR fortran/46223
        * gfortran.dg/bessel_7.f90: Bump allowed precision to avoid
        failure on s390.

From-SVN: r166546
This commit is contained in:
Tobias Burnus 2010-11-10 18:41:22 +01:00 • committed by Tobias Burnus
parent 4ae50669e0
commit 445f52e230
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,9 @@
2010-11-10 Tobias Burnus <burnus@net-b.de>
PR fortran/46223
* gfortran.dg/bessel_7.f90: Bump allowed precision to avoid
failure on s390.
2010-11-10 Sebastian Pop <sebastian.pop@amd.com>
PR tree-optimization/45971

2
gcc/testsuite/gfortran.dg/bessel_7.f90
View file

@ -12,7 +12,7 @@
implicit none
real,parameter :: values(*) = [0.0, 0.5, 1.0, 0.9, 1.8,2.0,3.0,4.0,4.25,8.0,34.53, 475.78]
real,parameter :: myeps(size(values)) = epsilon(0.0) &
* [2, 3, 4, 5, 8, 2, 12, 6, 7, 6, 30, 168 ]
* [2, 3, 4, 5, 8, 2, 12, 6, 7, 6, 31, 168 ]
! The following is sufficient for me - the values above are a bit
! more tolerant
! * [0, 0, 0, 3, 3, 0, 9, 0, 2, 1, 22, 130 ]