3 procedure interface3 is
7 subtype Element_Type is Foo'Class;
9 type Element_Access is access Element_Type;
10 type Elements_Type is array (1 .. 1) of Element_Access;
11 type Elements_Access is access Elements_Type;
13 type Vector is tagged record
14 Elements : Elements_Access;
17 procedure Test (Obj : Vector);
21 procedure Test (Obj : Vector) is
22 Elements : Elements_Access := new Elements_Type;
25 Elements (1) := new Element_Type'(Obj.Elements (1).all);