path: root/testsuite/tests/codeGen/should_compile/T1916.hs

module Bug (tst) where
tst :: Float -> Bool
tst x = truncate x > (0::Int)