gcc/testsuite/gnat.dg/aggr15.ads

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