source: liacs/coco/tests/declarations/lookup.p0@ 403

program a;

var
  x: integer;

procedure foo(y: integer);

begin
  if (x>y) then
    writeinteger(x)
  else
    writeinteger(y)
end;

begin
  x := 4;
  foo(3)
end.