diff options
Diffstat (limited to 'testsuite/tests/deSugar/should_compile/ds057.hs')
| -rw-r--r-- | testsuite/tests/deSugar/should_compile/ds057.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/deSugar/should_compile/ds057.hs b/testsuite/tests/deSugar/should_compile/ds057.hs new file mode 100644 index 0000000000..23bf5d3645 --- /dev/null +++ b/testsuite/tests/deSugar/should_compile/ds057.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE MagicHash, BangPatterns, UnboxedTuples #-} +module ShouldCompile where + +import Data.Word +import GHC.Ptr +import GHC.Exts + +f# :: Int# -> (# Char#, Int# #) +f# a# = (# '\0'#, a# #) + +g :: Int -> (Char, Int) +g (I# a#) = ( C# c#, I# b# ) + where !(# c#, b# #) = f# a# |