-- Task created with new task type Server is entry Request_Service; end Server; task type Wroker; task body Worker is end; task body Server is T: access Worker; begin loop T:= new Worker; end loop; end; end Server; procedure Gauss_Seidel is N: constant := 5; subtype Full_Grid is Integer range 0..N; subtype Grid is Integer range end Gauss_Seidel; with Ada.Task_Termination; use Ada.Task_Termination; type Termination_handler; type Cause_of_termination; -- task termination --normal termination: abgearbeitet --abnormal termination --unhandled exception protected Grim_Reaper is procedure Last_gasp(C: Cause_of_Termination; T: Task_Id, X: Exception_Occurence); end Grim_Reaper; --task handler --specific handler (abarbeiten nach ende) --fallback handler (kindtask)