1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/polykinds/PolyKinds11.hs b/testsuite/tests/polykinds/PolyKinds11.hs
new file mode 100644
index 0000000000..f80fa3fa7e
--- /dev/null
+++ b/testsuite/tests/polykinds/PolyKinds11.hs
@@ -0,0 +1,12 @@
+{-# LANGUAGE DataKinds                  #-}
+{-# LANGUAGE GADTs                      #-}
+
+module PolyKinds11 where
+
+-- Test inference
+
+data Nat = Ze | Su Nat
+
+data Vec a n where -- Vec :: * -> Nat -> *
+  VNil  :: Vec a Ze
+  VCons :: a -> Vec a n -> Vec a (Su n)