Commit 2c269109 authored by simonpj's avatar simonpj

[project @ 2005-02-23 09:12:58 by simonpj]

Add data2tag test
parent cf12a11d
......@@ -52,3 +52,4 @@ test('cg052', only_ways(['opt']), compile_and_run, ['-funbox-strict-fields'])
test('cg053', normal, compile_and_run, [''])
test('cg054', normal, compile_and_run, [''])
test('cg055', normal, compile_and_run, [''])
test('cg056', normal, compile_and_run, [''])
-- Another test for the evaluated-ness of data2tag
module Main where
data S e = A | B | C | D | E | F | G | H | I deriving (Eq)
newtype R = T (S R) deriving (Eq)
main = do { print (T A == T B) ; print (T I == T I) }
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