source: liacs/coco/tests/code-generation/test2.p0@ 72

program blaah;

var
  glob: integer;

procedure proc;
var loc: integer;
begin
  loc := 23;
  glob := loc
end;

begin
  proc;
  writeinteger(glob)
end.