Commit 1c27e5b3 authored by Joachim Breitner's avatar Joachim Breitner

Add failing test case for T13611

this program should be rejected, but is not (and segfaults).
parent 6f9f5ff1
{-# LANGUAGE MagicHash, UnboxedTuples #-}
import GHC.Prim
import GHC.Types
main = do
let local = ()
let null = 0## :: Word#
let triple = (# local, null, null #)
IO (\s -> case mkWeakNoFinalizer# triple () s of (# s, r #) -> (# s, () #))
......@@ -434,3 +434,4 @@ test('T13300', normal, compile_fail, [''])
test('T12709', normal, compile_fail, [''])
test('T13446', normal, compile_fail, [''])
test('T13506', normal, compile_fail, [''])
test('T13611', expect_broken(13611), compile_fail, [''])
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