Basic program with tasks goes out of memory

[wojtek@power.com.pl (Wojtek Narczynski)]

Hello,

Any idea why this program (extracted from AdaSockets example)
eventually eats up all RAM? Runtime leak or my ignorance?

Linux - GNAT 3.4.2 20040729 (prerelease), 
Windows - GNAT 3.15p.

Regards,
Wojtek


with Ada.Exceptions;   use Ada.Exceptions;
with Ada.Text_IO;      use Ada.Text_IO;

procedure Listener is

   task type Echo is
      entry Start;
   end Echo;

   task body Echo is

   begin
      select
         accept Start do
            null;
         end Start;
      or
         terminate;
      end select;

   exception
      when others =>
         Put_Line ("Strange error");
   end Echo;

   type Echo_Access is access Echo;
   Dummy : Echo_Access;

begin

   loop
      Dummy := new Echo;
      Dummy.Start;
      -- The statement below merely "delays" the problem
      delay 0.001;
   end loop;

end Listener;