fpc/tests/tbf/tb0167.pp
2005-02-14 17:13:06 +00:00

10 lines
64 B
ObjectPascal

{ %fail }
procedure p(var a);
begin
end;
begin
p([1]);
end.