Test #9201 in typecheck/should_fail/T9201

testsuite/tests/typecheck/should_fail/T9201.hs

+{-# LANGUAGE PolyKinds, FunctionalDependencies, MultiParamTypeClasses #-}
+
+module T9201 where
+
+class MonoidalCCC (f :: x -> y) (d :: y -> y -> *) | f -> d where
+  ret :: d a (f a)

testsuite/tests/typecheck/should_fail/T9201.stderr

+
+T9201.hs:6:17:
+    The first argument of ‘f’ should have kind ‘x1’,
+      but ‘a’ has kind ‘y1’
+    In the type ‘d a (f a)’
+    In the class declaration for ‘MonoidalCCC’

testsuite/tests/typecheck/should_fail/all.T

@@ -343,3 +343,4 @@ test('T9634', normal, compile_fail, [''])
 test('T9739', normal, compile_fail, [''])
 test('T9774', normal, compile_fail, [''])
 test('T9318', normal, compile_fail, [''])
+test('T9201', normal, compile_fail, [''])