mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-29 07:10:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

Really commit the following change:

Browse Source 
2010-08-22  Tobias Burnus  <burnus@net-b.de>
            Dominique d'Humieres <dominiq@lps.ens.fr>

        PR fortran/45367
        * gfortran.dg/bessel_6.f90: Increase numeric tolerence.

From-SVN: r163457
This commit is contained in:
Tobias Burnus 2010-08-22 12:09:34 +02:00
parent 525c561de8
commit 302ef3113c
1 changed files with 1 additions and 1 deletions

2
gcc/testsuite/gfortran.dg/bessel_6.f90

@ -13,7 +13,7 @@ real,parameter :: myeps(size(values)) = epsilon(0.0) &
! more tolerant
! * [0, 5, 3, 4, 6, 7, 7, 5, 5, 6, 66, 4 ]
integer,parameter :: mymax(size(values)) = &
[100, 17, 23, 21, 27, 28, 32, 35, 36, 41, 49, 50 ]
[100, 17, 23, 21, 27, 28, 32, 35, 36, 41, 100, 100 ]
integer, parameter :: Nmax = 100
real :: rec(0:Nmax), lib(0:Nmax)
integer :: i