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

Outer:
loop
   -- do something
   loop
      exit Outer when Finished;
      -- do something else
   end loop;
end loop Outer;