Data update

Task/Flow-control-structures/Ada/flow-control-structures-1.adb

@@ -0,0 +1,3 @@
+<<Top>>
+   Put_Line("Hello, World");
+   goto Top;

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

@@ -0,0 +1,10 @@
+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;

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

@@ -0,0 +1,8 @@
+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.adb

@@ -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.adb

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