Add test case for #7118.
authorPaolo Capriotti <p.capriotti@gmail.com>
Wed, 8 Aug 2012 13:40:55 +0000 (14:40 +0100)
committerPaolo Capriotti <p.capriotti@gmail.com>
Wed, 8 Aug 2012 13:40:55 +0000 (14:40 +0100)
testsuite/tests/parser/should_compile/T7118.hs [new file with mode: 0644]
testsuite/tests/parser/should_compile/all.T

diff --git a/testsuite/tests/parser/should_compile/T7118.hs b/testsuite/tests/parser/should_compile/T7118.hs
new file mode 100644 (file)
index 0000000..754b079
--- /dev/null
@@ -0,0 +1,2 @@
+main :: IO (){-# LINE 8 "" #-}
+main = print "Hi"
index 083b38c..9d3b4e6 100644 (file)
@@ -94,4 +94,4 @@ test('ParserLambdaCase', if_compiler_lt('ghc', '7.5', skip), compile, [''])
 
 test('T5243', extra_clean(['T5243A.hi', 'T5243A.o']),
      multimod_compile, ['T5243',''])
-
+test('T7118', normal, compile, [''])