@@ -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.
peter