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

Outer:
loop
   -- do something
   loop
      if Finished then
         exit Outer; -- exits both the inner and outer loops
      end if;
      -- do something else
   end loop;
end loop Outer;