in-out and out parameters

[evangeli@cnam.fr (Evangelista Sami)]

hello

i have this program :
====================
procedure Test is

   task T is
      entry E(I :    out Integer;
              J : in out Integer);
   end T;
   task body T is
   begin
      accept E(I :    out Integer;
               J : in out Integer) do
         I := 1;
         J := J * I;
         J := J * J;
      end E;
   end;

   I : Integer := 10;

begin
   T.E(I, I);
   Put_Line(Integer'Image(I));
end;
====================
The output is 1.
I thought that, as I and J were passed by references, when i call E
with the
same variables, I and J denote the same object. so i was expecting to
get 100 in output.
If someone had a clear explanation i would be very thankful.