A-M baby

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

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

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

@@ -0,0 +1,8 @@
+Outer:
+   loop
+      -- do something
+      loop
+         -- do something else
+         exit Outer; -- exits both the inner and outer loops
+      end loop;
+   end loop;

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

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