Ticket #7179: BinOp4.hs

File BinOp4.hs, 249 bytes (added by stephen70edwards, 20 months ago)

Bizarre little test case that manifests the problem.

Line 
1{-# LANGUAGE MagicHash #-}
2
3module BinOp4 where
4
5import GHC.Exts
6
7top :: Int# -> Int#
8top a = (if a ==# 4# then 2# else 7#) +#
9        (if a /=# 4# then 3# else 9#) +# 
10        (if a <# 4# then 3# else 2#) +#
11        (if a <=# 4# then 17# else 24#)