{$mode macpas}

procedure test;
begin
  return;
end;

begin
  test;
end.