[commit: ghc] ghc-8.0: Add test for #12411 (d84a824)

[git at git.haskell.org]

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

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/d84a824cebe94711528727bcb587bfc369ec36a2/ghc

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

commit d84a824cebe94711528727bcb587bfc369ec36a2
Author: Ryan Scott <ryan.gl.scott at gmail.com>
Date:   Wed Oct 12 14:57:32 2016 -0400

    Add test for #12411
    
    The fix for #12584 also fixed the problem in #12411. Let's add a test to ensure
    that it stays fixed.
    
    (cherry picked from commit 184d7cb8278b9c6cb3f9786a96f081d08e4640db)


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

d84a824cebe94711528727bcb587bfc369ec36a2
 testsuite/tests/{driver/recomp009/Sub2.hs => th/T12411.hs} | 5 +++--
 testsuite/tests/th/T12411.stderr                           | 4 ++++
 testsuite/tests/th/all.T                                   | 1 +
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/driver/recomp009/Sub2.hs b/testsuite/tests/th/T12411.hs
similarity index 50%
copy from testsuite/tests/driver/recomp009/Sub2.hs
copy to testsuite/tests/th/T12411.hs
index 7ca8b12..fd8f9db 100644
--- a/testsuite/tests/driver/recomp009/Sub2.hs
+++ b/testsuite/tests/th/T12411.hs
@@ -1,3 +1,4 @@
 {-# LANGUAGE TemplateHaskell #-}
-module Sub where
-x = [| 2 |]
+module T12411 where
+
+pure @Q []
diff --git a/testsuite/tests/th/T12411.stderr b/testsuite/tests/th/T12411.stderr
new file mode 100644
index 0000000..1f34432
--- /dev/null
+++ b/testsuite/tests/th/T12411.stderr
@@ -0,0 +1,4 @@
+
+T12411.hs:4:1: error:
+    Pattern syntax in expression context: pure at Q
+    Did you mean to enable TypeApplications?
diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index 74a1d4b..a59a4e1 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -416,3 +416,4 @@ test('T11484', normal, compile, ['-v0'])
 test('T12130', extra_clean(['T12130a.hi','T12130a.o']),
               multimod_compile, ['T12130', '-v0 ' + config.ghc_th_way_flags])
 test('T12407', omit_ways(['ghci']), compile, ['-v0'])
+test('T12411', normal, compile_fail, [''])