testsuite/tests/codeGen/should_run/T7163.hs


1
2
3
4
5
6
7
8
9
10


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)