[PATCH] Fix PR 17195

[Paul Brook]

On Thursday 26 August 2004 21:07, Steve Kargl wrote:
> The attached patch hacks around a corner case
> in writing out floating point numbers.  This
> program
>
>     real(8) x
>     print*. huge(x)
>     end
>
> will enter an infinite loop.
>
> 2004-08-24  Steven G. Kargl  <kargls@comcast.net>
>
>         PR fortran/17195
>         * io/write.c (output_float): Avoid corner case "print *,
> huge(1e0_8)"

I'm currently rewriting output_float for other reasons.I'll make sure this is 
fixed one way or another.

Paul