GADTs/TFs: Added T2151 & TF's Simple14 passes

testsuite/tests/ghc-regress/gadt/T2151.hs

+{-# LANGUAGE GADTs #-}
+
+module T2151 where
+
+data Type a where
+    Func :: Type a -> Type b -> Type (a -> b)
+    PF :: Type a -> Type (PF a)
+
+data PF a where
+    ID :: PF (a -> a)
+
+test :: Type a -> a -> a
+test (PF (Func _ _)) ID = ID

testsuite/tests/ghc-regress/gadt/all.T

@@ -95,3 +95,4 @@ test('T1999a', normal, compile, [''])
 
 test('T2587', normal, compile, [''])
 test('T2040', normal, compile, [''])
+test('T2151', normal, compile, [''])

testsuite/tests/ghc-regress/indexed-types/should_compile/all.T

@@ -14,7 +14,7 @@ test('Simple10', normal, compile, [''])
 test('Simple11', normal, compile, [''])
 test('Simple12', normal, compile, [''])
 test('Simple13', expect_fail, compile, [''])
-test('Simple14', expect_fail, compile, [''])
+test('Simple14', normal, compile, [''])
 test('Simple15', normal, compile, [''])
 test('Simple16', normal, compile, [''])
 test('Simple17', expect_fail, compile, [''])