summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--testsuite/tests/stage1/T13609.hs5
-rw-r--r--testsuite/tests/stage1/T13609.stderr3
-rw-r--r--testsuite/tests/stage1/all.T1
3 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/stage1/T13609.hs b/testsuite/tests/stage1/T13609.hs
new file mode 100644
index 0000000000..e67eb32af4
--- /dev/null
+++ b/testsuite/tests/stage1/T13609.hs
@@ -0,0 +1,5 @@
+module M where
+
+{-# ANN myId "HLint: ignore" #-}
+myId :: a -> a
+myId x = x
diff --git a/testsuite/tests/stage1/T13609.stderr b/testsuite/tests/stage1/T13609.stderr
new file mode 100644
index 0000000000..0a3c1cdae6
--- /dev/null
+++ b/testsuite/tests/stage1/T13609.stderr
@@ -0,0 +1,3 @@
+
+T13609.hs:3:1: warning:
+ Ignoring Ann annotation, because this is a stage-1 compiler without -fexternal-interpreter or doesn't support GHCi
diff --git a/testsuite/tests/stage1/all.T b/testsuite/tests/stage1/all.T
index a7f01b3525..40bb2746c6 100644
--- a/testsuite/tests/stage1/all.T
+++ b/testsuite/tests/stage1/all.T
@@ -4,3 +4,4 @@ setTestOpts(unless(config.stage == 1, skip))
# Test with stage1 compiler, see ticket:10382#comment:20.
test('T2632', normal, compile,
['-XTemplateHaskellQuotes -package template-haskell'])
+test('T13609', normal, compile, [''])