1
{ Source provided for Free Pascal Bug Report 3433 }
2
{ Submitted by "Mattias Gaertner" on 2004-12-06 }
3
{ e-mail: mattias@freepascal.org }
4
program CompareFunctionTypes;
12
TMyFunction = function(Item: Pointer): integer of object;
14
procedure DoSomething(const Func1, Func2: TMyFunction);
16
if Func1=Func2 then exit;