Commit 6da73bbf authored by Michalis Pardalos's avatar Michalis Pardalos Committed by Marge Bot

Add minimal test for #12492

parent aa054d32
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-}
import GHC.Exts
import GHC.IO
main :: IO ()
main = IO $ \s -> case newByteArray# 1032161# s of
(# s', mba# #) -> case unpackClosure# (unsafeCoerce# mba# :: Any) of
(# !_, _, _ #) -> (# s', () #)
......@@ -19,6 +19,7 @@ test('ArithWord8', omit_ways(['ghci']), compile_and_run, [''])
test('CmpInt8', normal, compile_and_run, [''])
test('CmpWord8', normal, compile_and_run, [''])
test('ShowPrim', normal, compile_and_run, [''])
test('T12492', normal, compile_and_run, [''])
# These two tests use unboxed tuples, which GHCi doesn't support
test('ArithInt16', omit_ways(['ghci']), 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