path: root/testsuite/tests/numeric/should_run/T5863.hs

import Text.Printf

main :: IO ()
main = do
  putStrLn $ printf "%.1f" (0.45 :: Double)
  putStrLn $ printf "%.1f" (0.55 :: Double)