source: liacs/coco/tests/semantic-checks/proc_as_function.p1@ 22

program a;

var
  een: integer;

procedure twee;

begin
  writeinteger(1)
end;

begin
  een := twee
end.