gcc/testsuite/gnat.dg/aggr15.adb

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