{ %fail }

procedure p(var a);
begin
end;

begin
  p([1]);
end.