[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / typecheck / should_run / tcrun005.hs

diff --git a/ghc/tests/typecheck/should_run/tcrun005.hs b/ghc/tests/typecheck/should_run/tcrun005.hs
deleted file mode 100644 (file)
index 2c31572..0000000
--- a/ghc/tests/typecheck/should_run/tcrun005.hs
+++ /dev/null
@@ -1,25 +0,0 @@
--- !!! Dfun naming bug
-
-module Main where
-
-
-  data TT  = TT
-  data TTT = TTT
-
-  class CC  a where
-       op_cc :: a -> a
-       
-  class CCT a where
-       op_cct :: a -> a
-
-  -- These two instances should get different dfun names!
-  -- In GHC 4.04 they both got $fCCTTT
-
-  instance CC TTT where
-       op_cc = id
-
-  instance CCT TT where
-       op_cct = id
-
-  main = case op_cc TTT of
-          TTT -> print "ok"