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