From: simonm <unknown>
Date: Mon, 1 Jun 1998 13:06:20 +0000 (+0000)
Subject: [project @ 1998-06-01 13:06:18 by simonm]
X-Git-Tag: Approx_2487_patches~638
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=10afcc908e06abf2dbe119d83bb67733a4499e95;p=ghc-hetmet.git

[project @ 1998-06-01 13:06:18 by simonm]
add seq test.
---

diff --git a/ghc/tests/codeGen/should_run/Makefile b/ghc/tests/codeGen/should_run/Makefile
index 2d75c34..e1caa6c 100644
--- a/ghc/tests/codeGen/should_run/Makefile
+++ b/ghc/tests/codeGen/should_run/Makefile
@@ -20,5 +20,6 @@ cg042_HC_OPTS = -fglasgow-exts
 cg016_RUNTEST_OPTS = -x 1	# should override the -x 0 above.
 cg021_RUNTEST_OPTS = +RTS -K2m
 cg025_RUNTEST_OPTS = -x 1 cg025.hs
+cg045_RUNTEST_OPTS = -x 1
 
 include $(TOP)/mk/target.mk
diff --git a/ghc/tests/codeGen/should_run/cg045.hs b/ghc/tests/codeGen/should_run/cg045.hs
new file mode 100644
index 0000000..6bff505
--- /dev/null
+++ b/ghc/tests/codeGen/should_run/cg045.hs
@@ -0,0 +1,3 @@
+module Main (main) where
+
+main = seq (error "hello world!" :: Int) (return ())
diff --git a/ghc/tests/codeGen/should_run/cg045.stderr b/ghc/tests/codeGen/should_run/cg045.stderr
new file mode 100644
index 0000000..df8bdc1
--- /dev/null
+++ b/ghc/tests/codeGen/should_run/cg045.stderr
@@ -0,0 +1,2 @@
+
+Fail: hello world!
\ No newline at end of file