no message

tests/tbs/tb0374.pp

@@ -0,0 +1,23 @@
+{ %VERSION=1.1 }
+{$mode delphi}
+type
+   tc1 = class
+      procedure a;overload;virtual;
+   end;
+
+   tc2 = class(tc1)
+      procedure a;override;
+   end;
+
+procedure tc1.a;
+
+  begin
+  end;
+
+procedure tc2.a;
+
+  begin
+  end;
+
+begin
+end.

tests/tbs/tb0375.pp

@@ -0,0 +1,20 @@
+{ %VERSION=1.1 }
+{$mode objfpc}
+
+type
+   i1 = interface
+      procedure intfp;
+   end;
+
+   tc1 = class(tobject,i1)
+      procedure i1.intfp = p;
+      procedure p;
+   end;
+
+procedure tc1.p;
+
+  begin
+  end;
+
+begin
+end.