with Stringpack; use Stringpack;
procedure Exception_Demo1 is

   task T;

   task body T is
      function F return Natural is begin return 0; end F;
      N: Natural := 1 mod F;         -- 1/0 in init!
   begin
      null;
   end T;

begin
   null;
exception
   when Tasking_Error => Print("Fehler bei Aktivierung");
end Exception_Demo1;