Data update

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

@@ -2,7 +2,9 @@ Outer:
 loop
    -- do something
    loop
+      if Finished then
+         exit Outer; -- exits both the inner and outer loops
+      end if;
       -- do something else
-      exit Outer; -- exits both the inner and outer loops
    end loop;
 end loop Outer;

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

@@ -1,7 +1,8 @@
-select
-   delay 10.0;
-   Put_Line ("Cannot finish this in 10s");
-then abort
-   -- do some lengthy calculation
-   ...
-end select;
+Outer:
+loop
+   -- do something
+   loop
+      exit Outer when Finished;
+      -- do something else
+   end loop;
+end loop Outer;

Task/Flow-control-structures/Ada/flow-control-structures-4.ada

@@ -0,0 +1,8 @@
+procedure Foo is
+begin
+   --  do something
+   if Nothing_More_To_Do then
+      return;
+   end if;
+   --  do more
+end Foo;

Task/Flow-control-structures/Ada/flow-control-structures-5.ada

@@ -0,0 +1,7 @@
+select
+   delay 10.0;
+   Put_Line ("Cannot finish this in 10s");
+then abort
+   -- do some lengthy calculation
+   ...
+end select;