freepascal.compiler/tests/webtbf/tw11849a.pp

{ %OPT=-Sew -vw -Oodfa }
{ %fail }
{$mode objfpc}
procedure GiveMe(var i: integer);
begin
  i:=0;
end;

function Test(a: integer): integer;
var
  i: integer;
begin
  GiveMe(i);
  Result:=i;
end;


begin
end.