Add a test for unrecognised pragmas

testsuite/tests/ghc-regress/parser/should_compile/all.T

@@ -75,5 +75,6 @@ test('read060', normal, compile, [''])
 test('read061', normal, compile, [''])
 test('read062', if_compiler_lt('ghc', '6.9', skip), compile, [''])
 test('read063', if_compiler_lt('ghc', '6.9', skip), compile, [''])
+test('read064', normal, compile, [''])
 test('read_1821', normal, compile, [''])
 

testsuite/tests/ghc-regress/parser/should_compile/read064.hs

+
+module Foo where
+
+{-# THISISATYPO foo #-}
+foo :: ()
+foo = ()
+

testsuite/tests/ghc-regress/parser/should_compile/read064.stderr

+
+read064.hs:4:0: Unrecognised pragma
+
+read064.hs:4:0: Unrecognised pragma