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

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg032.hs

diff --git a/ghc/tests/codeGen/should_run/cg032.hs b/ghc/tests/codeGen/should_run/cg032.hs
deleted file mode 100644 (file)
index b61feb8..0000000
--- a/ghc/tests/codeGen/should_run/cg032.hs
+++ /dev/null
@@ -1,20 +0,0 @@
--- !! pattern-matching failure on functions that return Int#
-
-import PrelBase --ghc1.3
-
-main = putStr (shows (I# (foo bar1 bar2)) "\n")
-  where
-    bar1 = Bar1 40 (39,38) resps
-    bar2 = Bar1  2 ( 1, 0) resps
-    resps = error "1.2 responses"
-
-data Response = Response -- stub
-
-data Bar
-  = Bar1 Int (Int,Int) [Response]
-  | Bar2 Int Int#
-  | Bar3 Int
-
-foo :: Bar -> Bar -> Int#
-
-foo (Bar1 (I# i) _ _) (Bar1 (I# j) _ _) = i +# j