git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bessel_7.f90: Decrease required precision. 

2010-09-05  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/bessel_7.f90: Decrease required precision.

From-SVN: r163880
This commit is contained in:
Tobias Burnus 2010-09-05 21:31:14 +02:00 committed by Tobias Burnus
parent 433ce291b5
commit 135e412147
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2010-09-05 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/bessel_7.f90: Decrease required precision.
2010-09-05 Hans-Peter Nilsson <hp@axis.com> 2010-09-05 Hans-Peter Nilsson <hp@axis.com>
PR testsuite/45545 PR testsuite/45545

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

@ -8,7 +8,7 @@
implicit none 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 :: 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) & real,parameter :: myeps(size(values)) = epsilon(0.0) &
* [2, 3, 4, 5, 7, 2, 12, 4, 7, 6, 30, 168 ] * [2, 3, 4, 5, 8, 2, 12, 6, 7, 6, 30, 168 ]
! The following is sufficient for me - the values above are a bit ! The following is sufficient for me - the values above are a bit
! more tolerant ! more tolerant
! * [0, 0, 0, 3, 3, 0, 9, 0, 2, 1, 22, 130 ] ! * [0, 0, 0, 3, 3, 0, 9, 0, 2, 1, 22, 130 ]