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

9 lines
168 B
Ada
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
Outer:
loop
-- do something
loop
-- do something else
exit Outer; -- exits both the inner and outer loops
end loop;
end loop;