1
{ Source provided for Free Pascal Bug Report 3499 }
2
{ Submitted by "Bart Tierens" on 2005-01-02 }
3
{ e-mail: svg@deds.nl }
6
{$ifdef fpc}{$mode delphi}{$endif}
14
TProcedure = procedure of object;
18
procedure p(const aproc: TProcedure);
25
procedure Class1.p(const aproc: TProcedure);
32
writeLn('procedure called');