testsuite/tests/codeGen/should_run/T12433.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

f :: Int -> IO ()
f p = case p of
  0 -> return ()
  1 -> return ()
  2 -> return ()
  3 -> return ()
  4 -> return ()
  10 -> return ()
  11 -> return ()
  _ -> print p
{-# NOINLINE f #-}

main = f 8