11 lines
193 B
Ada
11 lines
193 B
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;
|