+ test for getting the address of virtual methods of a class

tests/tbs/tb0403.pp

@@ -0,0 +1,16 @@
+{$mode objfpc}
+
+type
+  tclass = class
+    procedure t; virtual;
+  end;
+
+procedure tclass.t;
+begin
+end;
+
+var
+  p: pointer;
+begin
+  p := @tclass.t;
+end.