Commit 42489713 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #2756

parent 5e7a73c7
module Main where
data X = X ()
{-# NOINLINE newX #-}
newX :: () -> IO X
newX n = do
let {-# NOINLINE value #-}
value = n
return (X value)
main = do
x <- newX (error "Why?")
case x of
X _ -> return ()
...@@ -26,3 +26,4 @@ test('simplrun010', composes([extra_run_opts('24 16 8'), ...@@ -26,3 +26,4 @@ test('simplrun010', composes([extra_run_opts('24 16 8'),
# runtime has not gone up, but here I just compile it so that # runtime has not gone up, but here I just compile it so that
# the output of -ddump-rules can be compared # the output of -ddump-rules can be compared
test('T2486', normal, compile, ['']) test('T2486', normal, compile, [''])
test('T2756', normal, 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