1 files changed, 31 insertions, 0 deletions
diff --git a/testsuite/tests/printer/AnnotationTuple.hs b/testsuite/tests/printer/AnnotationTuple.hs
new file mode 100644
index 0000000000..73015a6bc5
--- /dev/null
+++ b/testsuite/tests/printer/AnnotationTuple.hs
@@ -0,0 +1,31 @@
+{-# LANGUAGE TupleSections,TypeFamilies #-}
+{-# LANGUAGE PatternGuards,ScopedTypeVariables #-}
+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 ())
+;
+data family GMap k :: * -> *
+;
+match n
+      | Just 5 <- Just n
+      , Just 6 <- Nothing
+      , Just 7 <- Just 9
+      = Just 8
+;
+boo :: Int = 3
+}
+-- Note: the trailing whitespace in this file is used to check that we
+-- have an annotation for it.
+
+