source: liacs/coco/tests/code-generation/test7.p0@ 166

program weil;

var 
  johny: integer;
 
begin
  johny := 10;
  while (johny > 0) do
  begin
    johny := johny - 1
  end
end.