[commit: testsuite] master: Test Trac #8540 (c0bca88)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/c0bca8841570b8c06e15ef95639c79fdeeb16f25/testsuite

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

commit c0bca8841570b8c06e15ef95639c79fdeeb16f25
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Nov 22 16:47:44 2013 +0000

    Test Trac #8540


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

c0bca8841570b8c06e15ef95639c79fdeeb16f25
 tests/th/T8540.hs  |    7 +++++++
 tests/th/T8540a.hs |   10 ++++++++++
 tests/th/all.T     |    4 ++++
 3 files changed, 21 insertions(+)

diff --git a/tests/th/T8540.hs b/tests/th/T8540.hs
new file mode 100644
index 0000000..5037497
--- /dev/null
+++ b/tests/th/T8540.hs
@@ -0,0 +1,7 @@
+{-# LANGUAGE TemplateHaskell #-}
+module T8540 where
+
+import T8540a
+
+baz :: Int
+baz = $foo
diff --git a/tests/th/T8540a.hs b/tests/th/T8540a.hs
new file mode 100644
index 0000000..a3ffbb2
--- /dev/null
+++ b/tests/th/T8540a.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE TemplateHaskell #-}
+module T8540a (foo) where
+
+import Language.Haskell.TH
+
+foo :: Q Exp
+foo = [| bar |]
+
+bar :: Int
+bar = 5
diff --git a/tests/th/all.T b/tests/th/all.T
index ae6f02a..a1fd6bf 100644
--- a/tests/th/all.T
+++ b/tests/th/all.T
@@ -307,3 +307,7 @@ test('T8455', normal, compile, ['-v0'])
 test('T8499', normal, compile, ['-v0'])
 test('T7477', normal, compile, ['-v0'])
 test('T8507', normal, compile, ['-v0'])
+test('T8540',
+     extra_clean(['T8540a.hi', 'T8540a.o']),
+     multimod_compile,
+     ['T8540', '-v0 ' + config.ghc_th_way_flags])