Commit f00609d0 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Add a test for #7163

parent ac4bf2c6
module Main where
main :: IO ()
main = putStrLn $ printFloat 100
printFloat :: Float -> String
printFloat x = f (show (round (x * 10)))
where f "0" = "0"
f _ = show (round x)
......@@ -93,3 +93,4 @@ test('setByteArray', normal, compile_and_run, [''])
test('6146', normal, compile_and_run, [''])
test('T5900', normal, compile_and_run, [''])
test('T7163', normal, compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment