diff --git a/ghc/tests/reader/should_compile/Makefile b/ghc/tests/reader/should_compile/Makefile
index 93597c1ce0d35df12b072f219f913d300b780249..71c4f4f22c546ee038f4e6695d2810b51a7c6a91 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 0000000000000000000000000000000000000000..1ed76f3dfcaece171d21ab7a2cc2628236da1010
--- /dev/null
+++ b/ghc/tests/reader/should_compile/read022.hs
@@ -0,0 +1,3 @@
+module ShouldCompile where
+
+f (x :: Int) = x + 1