path: root/tests/webtbs/tw4537.pp

procedure foo;
  begin
    exit();
  end;

function bar: integer;
  begin
    exit(42);
  end;
  
begin
end.