Commit c43c29e4 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-04-08 10:58:10 by simonpj]

Add unbox-strict-fields test
parent d0d51ad9
......@@ -18,3 +18,4 @@ test('drvrun012', normal, compile_and_run, [''])
test('drvrun013', normal, compile_and_run, [''])
test('drvrun014', normal, compile_and_run, [''])
test('drvrun015', normal, compile_and_run, [''])
test('drvrun016', normal, compile_and_run, ['-funbox-strict-fields'])
-- Run with -funbox-strict-fields
-- Bug in GHC 5.04.3
module Main where
data Foo = Foo Int String
data Bar = Bar Int Foo
instance Ord Bar where
compare (Bar i _) (Bar j _) = compare i j
instance Eq Bar where
(Bar i _) == (Bar j _) = i == j
data Zot = Zot !Bar !String deriving (Ord,Eq)
main = putStrLn "Success"
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