Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / simpl004.hs
1 {-# LANGUAGE UnboxedTuples, MagicHash, BangPatterns #-}
2
3 module ShouldCompile where
4
5 import Data.Ix
6 import GHC.Exts
7
8
9 f ixs@(_, ix_end) frozen# =
10 let
11 !n# =
12 case (
13 if null (range ixs)
14 then 0
15 else 1
16 ) of { I# x -> x }
17 in
18 (# frozen#, False #)