diff options
author | Simon Marlow <marlowsd@gmail.com> | 2013-01-09 16:51:19 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2013-01-09 16:51:19 +0000 |
commit | 26e5aafd6c8aceaadbc6db0b26f8fa631791f8d0 (patch) | |
tree | 765e20aa13483b072878c4f6c1d892547d1c419b /testsuite/tests/codeGen/should_run/T7361.hs | |
parent | 4aa886d5f423d556d9e9d64a6a97c66927cc0eb7 (diff) | |
download | haskell-26e5aafd6c8aceaadbc6db0b26f8fa631791f8d0.tar.gz |
Add test for #7361
Diffstat (limited to 'testsuite/tests/codeGen/should_run/T7361.hs')
-rw-r--r-- | testsuite/tests/codeGen/should_run/T7361.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_run/T7361.hs b/testsuite/tests/codeGen/should_run/T7361.hs new file mode 100644 index 0000000000..81301e4c23 --- /dev/null +++ b/testsuite/tests/codeGen/should_run/T7361.hs @@ -0,0 +1,12 @@ +{-# LANGUAGE MagicHash #-} +import GHC.Exts + +main = print $ map f [1,256,65536,minBound,maxBound] + +f (I# x#) = + [ I# (narrow8Int# (narrow16Int# x#)) + , I# (narrow8Int# (narrow32Int# x#)) + , I# (narrow16Int# (narrow8Int# x#)) + , I# (narrow16Int# (narrow32Int# x#)) + , I# (narrow32Int# (narrow8Int# x#)) + , I# (narrow32Int# (narrow16Int# x#))] |