testsuite/tests/simplCore/should_compile/T4908.hs


1
2
3
4
5
6
7
8
9
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