1package Aggr15 is
2
3  type T is tagged record
4    I : Integer;
5  end record;
6
7  type DATA_T is record
8    D : T;
9  end record;
10
11  type ALL_DATA_T is array (1..2, 1..2) of DATA_T;
12
13  function ALL_CREATE return ALL_DATA_T;
14
15end Aggr15;
16