This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [gfortran] PR libfortran/21376

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

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]