{ %fail }

procedure ld_var(var a);
begin
end;

procedure ld_const(const b);
begin
  ld_var(b);
end;

begin
end.