source: liacs/coco/tests/code-generation/test5.p0@ 20

program diep;

var
  c: integer;

procedure proc1(parm: integer);

begin
  c := parm + 1
end;

begin
  proc1(64)
end.