freepascal.compiler/tests/tbf/tb0106.pp

{ %fail }

procedure ld_var(var a);
begin
end;

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

begin
end.