with Stringpack; use Stringpack;
procedure Exception_Demo2a is

   task T1;
   task T2 is
      entry Hallo;
   end T2;

   task body T1 is
   begin
      loop
         T2.Hallo;
      end loop;

   exception
      when Tasking_Error => Print("Fehler bei entry call");
   end T1;

   task body T2 is
   begin
      for I in 1..4711 loop
         accept Hallo;
      end loop;
   end T2;

begin
   null;
end Exception_Demo2a;