[gfortran] PR libfortran/21376

[FX Coudert]

> How about this slightly simpler patch which collects all the special cases in
> one place.  Bubblestrapped and tested, OK for 4.0 and mainline?

I already committed the patch Steve approved. Of course, that doesn't 
mean we can do something better!

> !   if (value == 0 || (value < 100 && value > 0.01))
>       edigits = 2;
>     else
> !     edigits = 1 + (int) log10 (fabs (log10 (value)));

No, the limits are not 100 and 0.01. They are 10^100 10^-100. And, I 
don't know why, but I don't like float comparisons with such high values ;-)


FX