Add test for for-all types in arguments
--- /dev/null
+{-# OPTIONS -fglasgow-exts #-}
+
+-- !!! Check that forall types can't be arguments
+module ShouldFail where
+
+
+data T s a = MkT s a
+
+instance Ord a => Ord (forall s. T s a)
+-- A for-all should not appear as an argument to Ord
+
+
+
+g :: T s (forall b.b)
+g = error "urk"
--- /dev/null
+
+tcfail088.hs:9:
+ Illegal polymorphic type as argument: forall s. T s a
+ When checking kinds in `Ord (forall s. T s a)'
+
+tcfail088.hs:14:
+ Illegal polymorphic type as argument: forall b. b
+ When checking kinds in `T s (forall b. b)'
+ In a type signature for `g'
+
+Compilation had errors
+