[commit: testsuite] master: Add test case for #7118. (550a423)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/550a4238f024ece3b9a94073883dc5c02a8231a5

>---------------------------------------------------------------

commit 550a4238f024ece3b9a94073883dc5c02a8231a5
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date:   Wed Aug 8 14:40:55 2012 +0100

    Add test case for #7118.

>---------------------------------------------------------------

 tests/parser/should_compile/T7118.hs |    2 ++
 tests/parser/should_compile/all.T    |    2 +-
 2 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/tests/parser/should_compile/T7118.hs b/tests/parser/should_compile/T7118.hs
new file mode 100644
index 0000000..754b079
--- /dev/null
+++ b/tests/parser/should_compile/T7118.hs
@@ -0,0 +1,2 @@
+main :: IO (){-# LINE 8 "" #-}
+main = print "Hi"
diff --git a/tests/parser/should_compile/all.T b/tests/parser/should_compile/all.T
index 083b38c..9d3b4e6 100644
--- a/tests/parser/should_compile/all.T
+++ b/tests/parser/should_compile/all.T
@@ -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, [''])