[project @ 2000-03-23 17:45:17 by simonpj]

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

diff --git a/ghc/tests/codeGen/should_run/cg045.hs b/ghc/tests/codeGen/should_run/cg045.hs
index 6bff505..86d239c 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg045.hs
+++ b/ghc/tests/codeGen/should_run/cg045.hs
@@ -1,3 +1,11 @@
-module Main (main) where
+{-# OPTIONS -fglasgow-exts #-}
+
+module Main (main,myseq) where
+
+import PrelGHC
+import PrelErr
 
 main = seq (error "hello world!" :: Int) (return ())
+
+myseq :: a -> b -> b
+myseq  x y = case (seq#  x) of { 0# -> seqError; _ -> y }