task model

[Mike <michael_tabak@yahoo.com>]

I'm prototyping some tasking with multiple accepts, the code is as
follows:

with Ada.Text_Io;
use Ada.Text_Io;

procedure task_test is


   procedure Process_Primary(node: in Integer) is

   begin

       Put_Line("This is number" & Integer'Image(node));

   end Process_Primary;


   task proc1 is
     entry process1(node : Integer);
     entry continue;
   end proc1;

   task body proc1 is
   begin

     accept process1( node : Integer) do

       Process_Primary( node );

     end;

     accept continue do
       Put_Line("Called Continue task1");
     end;

   end proc1;

   task proc2 is
     entry process2(node : Integer);
     entry continue;
   end proc2;

   task body proc2 is
   begin

     accept process2( node : Integer) do

         Process_Primary( node );

     end;

     accept continue do
       Put_Line("Called Continue task2");
     end;

   end proc2;


begin
  for i in 1..2 loop
   proc1.process1(1);
   proc2.process2(2);
   proc1.continue;
   proc2.continue;
  end loop;
end task_test;
---------------------------------------------------------------------------------------------------------------------

I get the out put I expect:

This is number 1
This is number 2
Called Continue task1
Called Continue task2


But I also get the following error which I can't track down:

raised TASKING_ERROR : s-tasren.adb:486

I'm running on a Xeon blade with gnat under linux

Thanks
Mike