Lower precedence for {-# UNPACK #-}
[ghc.git] / testsuite / tests / typecheck / should_fail / T13530.hs
1 {-# LANGUAGE MagicHash, UnboxedTuples #-}
2
3 module T13530 where
4
5 import GHC.Exts
6
7 g :: Int -> (# Int#, a #)
8 g (I# y) = (# y, undefined #)
9
10 f :: Int -> (# Int#, Int# #)
11 f x = g x