path: root/testsuite/tests/ghc-regress/codeGen/should_compile/cg003.hs

module Test where

-- !!! caused compiler to generate bogus HC code, fixed in
-- basicTypes/Literal.lhs rev. 1.36.

f :: Double -> Int
f x = round (x - (-5.0))