ghc/compiler/tests/typecheck/should_fail/tcfail072.hs

   1 {- This program crashed GHC 2.03
   2
   3    From: Marc van Dongen <dongen@cs.ucc.ie>
   4    Date: Sat, 31 May 1997 14:35:40 +0100 (BST)
   5
   6   zonkIdOcc: g_aoQ
   7
   8   panic! (the `impossible' happened):
   9           lookupBindC:no info!
  10   for: g_aoQ
  11   (probably: data dependencies broken by an optimisation pass)
  12   static binds for:
  13   Tmp.$d1{-rmM,x-}
  14   local binds for:
  15 -}
  16
  17 module Tmp( g ) where
  18
  19 data AB p q = A
  20             | B p q
  21
  22 g :: (Ord p,Ord q) => (AB p q) -> Bool
  23 g (B _ _) = g A
  24