Commit 65f38b66 authored by simonmar's avatar simonmar
Browse files

[project @ 2003-01-23 12:47:47 by simonmar]

Add cg052.hs, which crashes GHC 5.04.2
parent 25a1c66d
......@@ -48,3 +48,4 @@ test('cg048', normal, compile_and_run, [''])
test('cg049', normal, compile_and_run, ['-funbox-strict-fields'])
test('cg050', normal, compile_and_run, [''])
test('cg051', exit_code(1), compile_and_run, [''])
test('cg052', only_ways(['opt']), compile_and_run, ['-funbox-strict-fields'])
-- !!! Caused a crash in GHC 5.04.2, fixed in CoreToStg.lhs rev. 1.98
data T1 = T1
data T2 = C1 !T1 | C2
data T3 = C3 !T2 Int
{-# NOINLINE f #-}
f 0 = C3 (C1 T1) 42
f n = C3 (C1 T1) n
main = case f 23 of
C3 y z -> case y of
C1 T1 -> putStrLn "ok"
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