with Ada.Real_Time;   use Ada.Real_Time;
with Ada.Text_Io;     use Ada.Text_Io;

procedure Atc_Example2 is
   task Example is
   end Example;

   task Example2 is
      entry Call;
   end Example2;

   task body Example is
   begin
      select
         Example2.Call;
         Put_Line("---------->");
      then abort
         loop
            Put_Line ("I'm doing abortable staments");
            delay 1.0;
         end loop;
      end select;
      loop
         Put_Line ("<TASK1> Now I'm here !!!!!");
         delay 1.0;
      end loop;

   end Example;

   task body Example2 is
   begin
      delay 4.0;
      accept Call;
      loop
         Put_Line ("<TASK2> Now I'm here !!!!!");
         delay 1.0;
      end loop;

   end Example2;

begin
   null;
end Atc_Example2;