diff --git a/tests/FArith.hs b/tests/FArith.hs
index 2c518ecc..018a6b19 100644
--- a/tests/FArith.hs
+++ b/tests/FArith.hs
@@ -17,4 +17,4 @@ main = do
   putStrLn $ show [ x / y  | x <- list1, y <- [1.0::Double, -16.0::Double, 0.0625::Double]]
   putStrLn $ show $ readDouble "1.625"
   putStrLn $ show $ 1.0 + readDouble "2.5"
-  putStrLn $ show $ map readDouble ["1.5e4", "1.25e-5"]
+  putStrLn $ show $ map readDouble ["1.5e4", "125.0e-4"]
diff --git a/tests/FArith.ref b/tests/FArith.ref
index 78eae5c2..288e6787 100644
--- a/tests/FArith.ref
+++ b/tests/FArith.ref
@@ -3,4 +3,4 @@
 [-100.25,6.265625,-1604.0,-53.25,3.328125,-852.0,0.0,-0.0,0.0,1.0,-0.0625,16.0,1.125,-0.0703125,18.0,10000.0,-625.0,160000.0]
 1.625
 3.5
-[15000.0,1.25e-05]
+[15000.0,0.0125]