diff options
Diffstat (limited to 'testsuite/tests/unboxedsums/unarise.hs')
-rw-r--r-- | testsuite/tests/unboxedsums/unarise.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/unboxedsums/unarise.hs b/testsuite/tests/unboxedsums/unarise.hs new file mode 100644 index 0000000000..9cdabc4021 --- /dev/null +++ b/testsuite/tests/unboxedsums/unarise.hs @@ -0,0 +1,17 @@ +{-# LANGUAGE UnboxedTuples #-} + +module Main where + +{-# NOINLINE f1 #-} +f1 :: (# #) -> (# #) -> String +f1 (# #) (# #) = "o" + +{-# NOINLINE f2 #-} +f2 :: (# (# #), (# #) #) -> String +f2 (# (# #), (# #) #) = "k" + +main :: IO () +main = do + let t = (# (# #), (# #) #) + case t of + (# t1, t2 #) -> putStrLn (f1 t1 t2 ++ f2 t) |