Commit 6742ce2d authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #15114

parent 198db048
{-# OPTIONS_GHC -O #-}
-- Bug only showed up with optimisation on
module Main where
import qualified Control.Exception as Exception
main :: IO ()
main = do
unserialize
putStrLn "all is well"
unserialize :: IO Char
unserialize =
if definitelyTrue
then do
return 'a'
else do
Exception.evaluate (error "wrong place")
{-# NOINLINE definitelyTrue #-}
definitelyTrue :: Bool
definitelyTrue = True
......@@ -84,3 +84,4 @@ test('T14868',
compile_and_run, [''])
test('T14894', normal, compile_and_run, [''])
test('T14965', normal, compile_and_run, [''])
test('T15114', only_ways('optasm'), 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