* new bug

tests/webtbs/tw3173.pp

@@ -0,0 +1,16 @@
+{ Source provided for Free Pascal Bug Report 3173 }
+{ Submitted by "Dominik Zablotny" on  2004-06-18 }
+{ e-mail: [email protected] }
+program test;
+{$ifdef fpc}{$mode delphi}{$endif}
+var
+  p: procedure of object;
+
+  function f:pointer;
+  begin
+  end;
+
+begin
+  @p := f;
+end.
+