gcc/testsuite/gnat.dg/aggr15.ads

   1 package 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
  15 end Aggr15;