exponents > 99

Author: jmkuhn

src/fmtcore.jl

@@ -202,17 +202,9 @@ function _pfmt_f(out::IO, fs::FormatSpec, x::AbstractFloat)
     end
 end
 
-function _pfmt_floate(out::IO, sch::Char, zs::Integer, u::Real, prec::Int, e::Int, ec::Char)
+function _pfmt_floate(out::IO, sch::Char, zs::Integer, u::Real, prec::Int, e::Integer, ec::Char)
     intv = trunc(Integer,u)
     decv = u - intv
-    if round(Integer, decv * exp10(prec)) == exp10(prec)
-        intv += 1
-        if intv == 10
-            intv = 1
-            e += 1
-        end
-        decv = 0.
-    end
     _pfmt_float(out, sch, zs, intv, decv, prec)
     write(out, ec)
     if e >= 0
@@ -221,9 +213,10 @@ function _pfmt_floate(out::IO, sch::Char, zs::Integer, u::Real, prec::Int, e::In
         write(out, '-')
         e = -e
     end
-    (e1, e2) = divrem(e, 10)
-    write(out, Char('0' + e1))
-    write(out, Char('0' + e2))
+    if e < 10
+        write(out, '0')
+    end
+    _pfmt_intdigits(out, e, _Dec())
 end
 
 
@@ -235,15 +228,21 @@ function _pfmt_e(out::IO, fs::FormatSpec, x::AbstractFloat)
         e = 0
         u = zero(x)
     else
-        e = floor(Integer,log10(ax))  # exponent
-        u = ax / exp10(e)  # significand
+        e = floor(Integer, log10(ax))
+        scale = exp10(-e + fs.prec)
+        rax = round(ax * scale) / scale
+        e = floor(Integer, log10(rax))  # exponent
+        u = rax / exp10(e)  # significand
     end
 
     # calculate length
     xlen = 6 + fs.prec
+    if abs(e) > 99
+        xlen += _ndigits(abs(e), _Dec()) - 2
+    end
     if sch != '\0'
         xlen += 1
-    end 
+    end
 
     # print
     ec = isupper(fs.typ) ? 'E' : 'e'

test/fmtspec.jl

@@ -155,6 +155,14 @@ fs = FormatSpec("d")
 @test fmt(".1e", 0.6) == "6.0e-01"
 @test fmt(".1e", 0.9) == "9.0e-01"
 
+@test fmt("10.2e", 1.2e100) == " 1.20e+100"
+@test fmt("11.2e", BigFloat("1.2e1000")) == " 1.20e+1000"
+@test fmt("11.2e", BigFloat("1.2e-1000")) == " 1.20e-1000"
+@test fmt("9.2e", 9.999e9) == " 1.00e+10"
+@test fmt("10.2e", 9.999e99) == " 1.00e+100"
+@test fmt("11.2e", BigFloat("9.999e999")) == " 1.00e+1000"
+@test fmt("10.2e", -9.999e-100) == " -1.00e-99"
+
 # format special floating point value
 
 @test fmt("f", NaN) == "NaN"