procedure Foo is
begin
   --  do something
   if Nothing_More_To_Do then
      return;
   end if;
   --  do more
end Foo;