This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Patch,Fortran,committed] bessel_7.f90 decrease precision, simplify.c - minor clean up
- From: "H.J. Lu" <hjl dot tools at gmail dot com>
- To: Tobias Burnus <burnus at net-b dot de>
- Cc: gcc patches <gcc-patches at gcc dot gnu dot org>, gfortran <fortran at gcc dot gnu dot org>
- Date: Thu, 2 Sep 2010 13:44:43 -0700
- Subject: Re: [Patch,Fortran,committed] bessel_7.f90 decrease precision, simplify.c - minor clean up
- References: <4C791D2D.30006@net-b.de> <AANLkTimQwjanKbOxKU_iOv_jQ191yq8wH35GUoXoT620@mail.gmail.com> <4C80009D.2000108@net-b.de>
On Thu, Sep 2, 2010 at 12:53 PM, Tobias Burnus <burnus@net-b.de> wrote:
> ?H.J. Lu wrote:
>>
>> I still got
>> http://gcc.gnu.org/ml/gcc-testresults/2010-08/msg03035.html:
>>
>> FAIL: gfortran.dg/bessel_7.f90 ?-O0 ?execution test
>
> As written before: Can you uncomment the print lines (all!) in bessel_7 -
> and comment the if/abort lines? That gives a long output, but one can use it
> to find the values for which it fails.
>
> Thanks!
>
> Tobias
>
I got
YN for X = 0.0000000 -- Epsilon = 1.19209290E-07
YN for X = 0.50000000 -- Epsilon = 1.19209290E-07
YN for X = 1.0000000 -- Epsilon = 1.19209290E-07
YN for X = 0.89999998 -- Epsilon = 1.19209290E-07
YN for X = 1.8000000 -- Epsilon = 1.19209290E-07
33 -0.277982435E+37 -0.277982181E+37 -0.25E+31 7.6507163048 T F
34 -0.101848647E+39 -0.101848556E+39 -0.91E+32 7.5173835754 T F
YN for X = 2.0000000 -- Epsilon = 1.19209290E-07
YN for X = 3.0000000 -- Epsilon = 1.19209290E-07
YN for X = 4.0000000 -- Epsilon = 1.19209290E-07
41 -0.130542104E+36 -0.130542174E+36 0.69E+29 -4.4547867775 T F
42 -0.266956917E+37 -0.266957075E+37 0.16E+31 -4.9791855812 T F
43 -0.559304076E+38 -0.559304431E+38 0.35E+32 -5.3235278130 T F
YN for X = 4.2500000 -- Epsilon = 1.19209290E-07
YN for X = 8.0000000 -- Epsilon = 1.19209290E-07
YN for X = 34.529999 -- Epsilon = 1.19209290E-07
YN for X = 475.78000 -- Epsilon = 1.19209290E-07
--
H.J.