14 lines
146 B
ObjectPascal
14 lines
146 B
ObjectPascal
|
// #2172
|
|||
|
|
procedure p1(p: ()->());
|
|||
|
|
begin
|
|||
|
|
Assert(1=1)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure p1(p: byte->());
|
|||
|
|
begin
|
|||
|
|
Assert(1=2)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p1(()-> exit());
|
|||
|
|
end.
|