[Patch, Fortran] Another floating point speedup

[Jerry DeLisle]

Dominique Dhumieres wrote:
> I don't know if this is a NIST bug or not, but the two following
> tests are no longer working with the Daniel's patch (derived from
> FM110 and FM900):
> 
> character(15) :: str="+ .339  567+2"
> real :: x
> read(str,'(BN,F15.6)') x
> print *, x
> read(str,'(G15.7)') x
> print *, x
> end
> 
> [ibook-dhum] f90/bug% gfc read_tst_1.f90
> [ibook-dhum] f90/bug% a.out
> At line 3 of file read_tst_1.f90
> Fortran runtime error: Bad value during floating point read
> [ibook-dhum] f90/bug% gfortran read_tst_1.f90
> [ibook-dhum] f90/bug% a.out
>    33.956699    
>    33.956699    

Good catch Dominique.  This is a regression in 4.4.

See PR38735

Jerry