[gfortran] Patch for test suite program: intrinsic_fraction_exponent.f90

[Paul Brook]

On Monday 03 November 2003 3:41 am, Feng Wang wrote:
> 2003-11-3  Feng Wang  <fengwang@nudt.edu.cn>
>
>        * gfortran.fortran-
> torture/excute/intrinsic_fraction_exponent.f90: Fix two
> errors.
>

!   y = (y / 2.) * (2._8 ** (z + 1))
!   y = (y * 2.) * (2._8 ** (z + 1))

Shouldn't these be y*2._8 and y/2._8 for consistency?

Other than that, ok.

I suspect the old version didn't work because reounding errors were 
different for the two methods. In other tests we allow a small delt on the 
comarisons. Maybe we should also do this here.

Paul