mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
25 lines
383 B
ObjectPascal
25 lines
383 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2778 }
|
|
{ Submitted by "Michael Van Canneyt" on 2003-11-09 }
|
|
{ e-mail: michael.vancanneyt@wisa.be }
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
TMyFunc = Procedure (I : Integer = 10);
|
|
|
|
Procedure MyRealFunc(I : Integer = 20);
|
|
|
|
begin
|
|
Writeln('Function received : ',I);
|
|
if i<>10 then
|
|
halt(1);
|
|
end;
|
|
|
|
Var
|
|
M : TMyFunc;
|
|
|
|
begin
|
|
M:=@MyRealFunc;
|
|
M;
|
|
end.
|