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

9 lines
153 B
Ada
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Outer:
2024-04-19 16:56:29 -07:00
loop
-- do something
2023-07-01 11:58:00 -04:00
loop
2024-04-19 16:56:29 -07:00
-- do something else
exit Outer; -- exits both the inner and outer loops
2023-07-01 11:58:00 -04:00
end loop;
2024-04-19 16:56:29 -07:00
end loop Outer;