From 243e568758684337c621d4c7041576341882d6dc Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 10 Nov 1998 08:50:51 +0000
Subject: [PATCH] [project @ 1998-11-10 08:50:50 by sof] _casm_ unfolding test

---
 ghc/tests/reader/should_compile/Makefile   |    4 +++-
 ghc/tests/reader/should_compile/read012.hs |    3 +++
 ghc/tests/reader/should_compile/read013.hs |    4 ++++
 3 files changed, 10 insertions(+), 1 deletion(-)
 create mode 100644 ghc/tests/reader/should_compile/read012.hs
 create mode 100644 ghc/tests/reader/should_compile/read013.hs

diff --git a/ghc/tests/reader/should_compile/Makefile b/ghc/tests/reader/should_compile/Makefile
index d55ad91..1eb42d5 100644
--- a/ghc/tests/reader/should_compile/Makefile
+++ b/ghc/tests/reader/should_compile/Makefile
@@ -2,8 +2,10 @@ TOP = ../..
 include $(TOP)/mk/boilerplate.mk
 include $(TOP)/mk/should_compile.mk
 
-SRC_HC_OPTS += -noC -dcore-lint
+SRC_HC_OPTS += -dcore-lint
 
 read004_HC_OPTS = -fno-implicit-prelude
+read012_HC_OPTS += -O -funfold-casms-in-hi-file -fglasgow-exts
+read013_HC_OPTS += -O -funfold-casms-in-hi-file -fglasgow-exts
 
 include $(TOP)/mk/target.mk
diff --git a/ghc/tests/reader/should_compile/read012.hs b/ghc/tests/reader/should_compile/read012.hs
new file mode 100644
index 0000000..a667c9e
--- /dev/null
+++ b/ghc/tests/reader/should_compile/read012.hs
@@ -0,0 +1,3 @@
+module T1 where
+malloc :: IO Int
+malloc = _casm_ ``%r = 42;''
diff --git a/ghc/tests/reader/should_compile/read013.hs b/ghc/tests/reader/should_compile/read013.hs
new file mode 100644
index 0000000..214e20f
--- /dev/null
+++ b/ghc/tests/reader/should_compile/read013.hs
@@ -0,0 +1,4 @@
+module T2 where
+import T1
+blah :: IO Int
+blah = malloc
-- 
1.7.10.4