diff options
3 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/parser/should_compile/all.T b/testsuite/tests/ghc-regress/parser/should_compile/all.T index 690ad477bd..7f6a8870e5 100644 --- a/testsuite/tests/ghc-regress/parser/should_compile/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/parser/should_compile/read064.hs b/testsuite/tests/ghc-regress/parser/should_compile/read064.hs new file mode 100644 index 0000000000..386574244f --- /dev/null +++ b/testsuite/tests/ghc-regress/parser/should_compile/read064.hs @@ -0,0 +1,7 @@ + +module Foo where + +{-# THISISATYPO foo #-} +foo :: () +foo = () + diff --git a/testsuite/tests/ghc-regress/parser/should_compile/read064.stderr b/testsuite/tests/ghc-regress/parser/should_compile/read064.stderr new file mode 100644 index 0000000000..f40f91ed81 --- /dev/null +++ b/testsuite/tests/ghc-regress/parser/should_compile/read064.stderr @@ -0,0 +1,4 @@ + +read064.hs:4:0: Unrecognised pragma + +read064.hs:4:0: Unrecognised pragma |