Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / simpl018.hs
1 {-# LANGUAGE UnboxedTuples #-}
2
3 -- See Note [Float coercions (unlifted)] in Simplify
4 -- This one gave a CoreLint error when compiled optimised
5 --
6 -- See also Trac #1718, of which this is a simplified version
7
8 module ShouldCompile where
9
10 bar :: Bool -> Int
11 bar x = case (case x of { True -> (# 2,3 #); False -> error "urk" }) of
12 (# p,q #) -> p+q