Commit caa9c8aa authored by rwbarton's avatar rwbarton

Add test case for #9013

parent 44c1e3f4
......@@ -180,6 +180,7 @@ mk/ghcconfig_*_inplace_bin_ghc-stage2.exe.mk
/tests/codeGen/should_run/T8103
/tests/codeGen/should_run/T8256
/tests/codeGen/should_run/T9001
/tests/codeGen/should_run/T9013
/tests/codeGen/should_run/Word2Float64
/tests/codeGen/should_run/cgrun001
/tests/codeGen/should_run/cgrun002
......
{-# LANGUAGE MagicHash, UnboxedTuples #-}
import GHC.Prim
import GHC.Word
big :: Word
big = maxBound
carry :: Word
carry = case big of
W# w -> case plusWord2# w w of
(# hi, lo #) -> W# hi
main = print carry
......@@ -120,3 +120,8 @@ test('CopySmallArray', normal, compile_and_run, [''])
test('CopySmallArrayStressTest', reqlib('random'), compile_and_run, [''])
test('SizeOfSmallArray', normal, compile_and_run, [''])
test('T9001', normal, compile_and_run, [''])
test('T9013',
[ omit_ways(['ghci']), # ghci doesn't support unboxed tuples
when(arch('x86') or arch('x86_64'),
expect_broken_for(9013, list(set(opt_ways) - set(llvm_ways)))) ],
compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment