added some tests in the testsuite for the compiler

testsuite/compiler/check/restricted-inheritance/A.gf

@@ -0,0 +1,8 @@
+abstract A = {
+
+cat A1; A2 ;
+fun f1 : A1 ;
+    f2 : A1 ;
+    g  : A2 ;
+
+}

testsuite/compiler/check/restricted-inheritance/B.gf

@@ -0,0 +1,3 @@
+abstract B = A - [A1] ** {
+
+}