1 files changed, 20 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-api/annotations/AnnotationTuple.hs b/testsuite/tests/ghc-api/annotations/AnnotationTuple.hs
new file mode 100644
index 0000000000..1eced4d2cb
--- /dev/null
+++ b/testsuite/tests/ghc-api/annotations/AnnotationTuple.hs
@@ -0,0 +1,20 @@
+{-# LANGUAGE TupleSections #-}
+module AnnotationTuple (foo) where
+
+{
+import qualified Data.List as DL
+;
+foo = let
+        a = 1
+        b = 2
+      in a + b
+
+;
+bar = print $ map (1, "hello"   , 6.5,, [5, 5, 6, 7]) [Just (), Nothing]
+;
+baz = (1, "hello", 6.5,,,,) 'a' (Just ())
+}
+-- Note: the trailing whitespace in this file is used to check that we
+-- have an annotation for it.
+
+