RosettaCodeData/Task/Flow-control-structures/Ada/flow-control-structures-4.ada

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