diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T4908.hs')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/T4908.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T4908.hs b/testsuite/tests/simplCore/should_compile/T4908.hs new file mode 100644 index 0000000000..78634e72bb --- /dev/null +++ b/testsuite/tests/simplCore/should_compile/T4908.hs @@ -0,0 +1,10 @@ +{-# LANGUAGE MagicHash #-} + +module T4908 where +import GHC.Base + +f :: Int -> (Int,Int) -> Bool +f 0 x = True +f n x = case x of (a,b) -> case b of + I# 0# -> True + I# _ -> f (n-1) x |