fpc/tests/tbf/tb0047.pp
2000-12-03 21:50:07 +00:00

15 lines
186 B
ObjectPascal

{ %FAIL }
{ Old file: tbf0242.pp }
{ Crash when passing a procedure to formal parameter OK 0.99.11 (PM) }
procedure p;
begin
end;
procedure p1(var x);
begin
end;
begin
p1(p);
end.