cgrun024.hs\should_run\codeGen\ghc-regress\tests\testsuite - delta/haskell.git - gitlab.haskell.org: ghc/ghc.git

index : delta/haskell.git

gitlab.haskell.org: ghc/ghc.git

summary refs log tree commit diff

path: root/testsuite/tests/ghc-regress/codeGen/should_run/cgrun024.hs

blob: 7a695474e50db38d231fe8827364ec656ab192c5 (plain)

-- !!! test super-dictionary grabification
--

main = putStr (show (is_one (1.2::Double)))

is_one :: RealFloat a => a -> Bool

is_one x = x == 1.0