From c38807c45e73345e792ffe01ca847ee9f3df96d7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 23 Jun 1999 10:42:07 +0000
Subject: [PATCH] [project @ 1999-06-23 10:42:07 by simonmar] Test for pattern
 type signatures.

---
 ghc/tests/reader/should_compile/Makefile   |    1 +
 ghc/tests/reader/should_compile/read022.hs |    3 +++
 2 files changed, 4 insertions(+)
 create mode 100644 ghc/tests/reader/should_compile/read022.hs

diff --git a/ghc/tests/reader/should_compile/Makefile b/ghc/tests/reader/should_compile/Makefile
index 93597c1..71c4f4f 100644
--- a/ghc/tests/reader/should_compile/Makefile
+++ b/ghc/tests/reader/should_compile/Makefile
@@ -8,5 +8,6 @@ read004_HC_OPTS = -fno-implicit-prelude
 read012_HC_OPTS += -O -funfold-casms-in-hi-file -fglasgow-exts -ohi T1.hi
 read013_HC_OPTS += -O -funfold-casms-in-hi-file -fglasgow-exts
 read014_HC_OPTS += -Wall
+read022_HC_OPTS = -fglasgow-exts
 
 include $(TOP)/mk/target.mk
diff --git a/ghc/tests/reader/should_compile/read022.hs b/ghc/tests/reader/should_compile/read022.hs
new file mode 100644
index 0000000..1ed76f3
--- /dev/null
+++ b/ghc/tests/reader/should_compile/read022.hs
@@ -0,0 +1,3 @@
+module ShouldCompile where
+
+f (x :: Int) = x + 1
-- 
1.7.10.4