tasks a-s

Task/Program-termination/Ada/program-termination-2.ada

@@ -0,0 +1,11 @@
+procedure Main is
+   -- Create as many task objects as your program needs
+begin
+   -- whatever logic is required in your Main procedure
+   if some_condition then
+      -- for each task created by the Main procedure
+      The_task.Stop;
+      -- end the Main procedure
+      return;  -- actually, this is not needed
+   end if;
+end Main;