unconstrained records

[see@messagebody.com (Jan)]

Hi,

I have found an interesting source code in the book "Ada in action",
but the book could be better, because there is no background
information. Here is the problem:

procedure UnConstrained_Record is

   type Test (length : natural := 0) is
     record
        text : string (1..length);
     end record;

name : Test;

begin

   name := (5, "Bimbo");

   -- now I can resize the array inside the record

   name := (14, "This is a test");

   -- but now it comes

   name := (3, "abc");

   -- What happens to the memory? Are the 11 bytes freed           
   -- automatically?

end UnConstrained_Record;


Thanks!