Commit 94314acd authored by simonpj's avatar simonpj
Browse files

[project @ 2005-10-31 10:15:09 by simonpj]

Another existential escape test
parent fce14fc8
...@@ -136,3 +136,4 @@ test('tcfail148', normal, compile_fail, ['']) ...@@ -136,3 +136,4 @@ test('tcfail148', normal, compile_fail, [''])
test('tcfail149', normal, compile_fail, ['']) test('tcfail149', normal, compile_fail, [''])
test('tcfail150', normal, compile_fail, ['']) test('tcfail150', normal, compile_fail, [''])
test('tcfail151', normal, compile_fail, ['']) test('tcfail151', normal, compile_fail, [''])
test('tcfail152', normal, compile_fail, [''])
{-# OPTIONS -fglasgow-exts #-}
-- This test made Hugs fail (Oct 05) because the constraint
-- from the 'toInteger' call escaped from the pattern match
module ShouldFail where
data T = forall a. C a
test (C x) = toInteger x
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