Fix issue #61

Author: jmkuhn

src/fmtcore.jl

@@ -203,6 +203,10 @@ end
 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 intv == 0 && decv != 0
+        intv = 1
+        decv -= 1
+    end
     _pfmt_float(out, sch, zs, intv, decv, prec)
     print(out, ec)
     if e >= 0

test/fmtspec.jl

@@ -179,6 +179,10 @@ fs = FormatSpec("d")
 @test fmt(".1e", 0.6) == "6.0e-01"
 @test fmt(".1e", 0.9) == "9.0e-01"
 
+# issue #61
+@test fmt("1.0e", 1e-21) == "1.e-21"
+@test fmt("1.1e", 1e-21) == "1.0e-21"
+
 @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"