gcc/testsuite/gnat.dg/aggr15.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-gnatws" }
   3
   4 package body Aggr15 is
   5
   6   function CREATE return DATA_T is
   7     D : DATA_T;
   8   begin
   9     return D;
  10   end;
  11
  12   function ALL_CREATE return ALL_DATA_T is
  13     C : constant ALL_DATA_T := (others => (others => Create));
  14   begin
  15     return C;
  16   end;
  17
  18 end Aggr15;