diff options
Diffstat (limited to 'testsuite/tests/typecheck/should_fail/tcfail072.hs')
-rw-r--r-- | testsuite/tests/typecheck/should_fail/tcfail072.hs | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_fail/tcfail072.hs b/testsuite/tests/typecheck/should_fail/tcfail072.hs new file mode 100644 index 0000000000..501976e5be --- /dev/null +++ b/testsuite/tests/typecheck/should_fail/tcfail072.hs @@ -0,0 +1,24 @@ +{- This program crashed GHC 2.03 + + From: Marc van Dongen <dongen@cs.ucc.ie> + Date: Sat, 31 May 1997 14:35:40 +0100 (BST) + + zonkIdOcc: g_aoQ + + panic! (the `impossible' happened): + lookupBindC:no info! + for: g_aoQ + (probably: data dependencies broken by an optimisation pass) + static binds for: + Tmp.$d1{-rmM,x-} + local binds for: +-} + +module ShouldFail where + +data AB p q = A + | B p q + +g :: (Ord p,Ord q) => (AB p q) -> Bool +g (B _ _) = g A + |