Re: [PING 3, PATCH] S/390: Reduce accuracy of bessel_6.f90.

[Jakub Jelinek]

On Wed, Mar 02, 2016 at 07:36:23AM +0100, Dominik Vogt wrote:
> > Another patch reducing the accuracy required in the bessel_6 test.
> 
> > gcc/testsuite/ChangeLog
> > 
> > * gfortran.dg/bessel_6.f90: Reduce accuracy for S/390.

Ok, thanks.
> 
> > >From 70a35dd6f6bf906d8e5907667ad0f04f981a61ac Mon Sep 17 00:00:00 2001
> > From: Dominik Vogt 
> > Date: Mon, 11 Jan 2016 15:36:38 +0100
> > Subject: [PATCH] S/390: Reduce accuracy of bessel_6.f90.
> > 
> > ---
> >  gcc/testsuite/gfortran.dg/bessel_6.f90 | 2 +-
> >  1 file changed, 1 insertion(+), 1 deletion(-)
> > 
> > diff --git a/gcc/testsuite/gfortran.dg/bessel_6.f90 
> > b/gcc/testsuite/gfortran.dg/bessel_6.f90
> > index e0220f7..da917ff 100644
> > --- a/gcc/testsuite/gfortran.dg/bessel_6.f90
> > +++ b/gcc/testsuite/gfortran.dg/bessel_6.f90
> > @@ -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, 7, 5, 6, 9, 12, 12, 7, 7, 8, 92, 15 ]
> > +  * [2, 7, 5, 6, 9, 12, 12, 7, 7, 8, 98, 15 ]
> >  ! The following is sufficient for me - the values above are a bit
> >  ! more tolerant
> >  !  * [0, 5, 3, 4, 6, 7, 7, 5, 5, 6, 66, 4 ]
> > -- 
> > 2.3.0
> > 

Jakub

Re: [PING 3, PATCH] S/390: Reduce accuracy of bessel_6.f90.

[Dominik Vogt]

On Mon, Jan 11, 2016 at 03:40:56PM +0100, Dominik Vogt wrote:
> Another patch reducing the accuracy required in the bessel_6 test.

> gcc/testsuite/ChangeLog
> 
>   * gfortran.dg/bessel_6.f90: Reduce accuracy for S/390.

> >From 70a35dd6f6bf906d8e5907667ad0f04f981a61ac Mon Sep 17 00:00:00 2001
> From: Dominik Vogt 
> Date: Mon, 11 Jan 2016 15:36:38 +0100
> Subject: [PATCH] S/390: Reduce accuracy of bessel_6.f90.
> 
> ---
>  gcc/testsuite/gfortran.dg/bessel_6.f90 | 2 +-
>  1 file changed, 1 insertion(+), 1 deletion(-)
> 
> diff --git a/gcc/testsuite/gfortran.dg/bessel_6.f90 
> b/gcc/testsuite/gfortran.dg/bessel_6.f90
> index e0220f7..da917ff 100644
> --- a/gcc/testsuite/gfortran.dg/bessel_6.f90
> +++ b/gcc/testsuite/gfortran.dg/bessel_6.f90
> @@ -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, 7, 5, 6, 9, 12, 12, 7, 7, 8, 92, 15 ]
> +  * [2, 7, 5, 6, 9, 12, 12, 7, 7, 8, 98, 15 ]
>  ! The following is sufficient for me - the values above are a bit
>  ! more tolerant
>  !  * [0, 5, 3, 4, 6, 7, 7, 5, 5, 6, 66, 4 ]
> -- 
> 2.3.0
> 



Ciao

Dominik ^_^  ^_^

-- 

Dominik Vogt
IBM Germany