testsuite: Skip T17414 on Linux
[ghc.git] / testsuite / tests / typecheck / should_run / tcrun049.hs
1
2 {-# LANGUAGE UnboxedTuples #-}
3
4 module Main where
5
6 type T a = Int -> (# Int, Int #)
7
8 {-# NOINLINE f2 #-}
9 f2 :: T a -> T a
10 f2 t = \x -> case t x of _ -> (# 3,4 #) -- NB: wildcard has unboxed tuple type
11
12 main = print $ case f2 (\x -> (# x, x + 1 #)) 10 of (# y, z #) -> y + z