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