+ added

tests/webtbf/tw3738.pp

@@ -0,0 +1,21 @@
+{ %fail }
+
+program fjf775a;
+
+type
+  a = object
+    f: Integer
+  end;
+
+  b = object (a)
+    procedure p;
+  end;
+
+procedure b.p;
+begin
+  WriteLn (inherited f)  { WRONG }
+end;
+
+begin
+end.
+