Corrected date in changelog
[official-gcc.git] / gcc / testsuite / gnat.dg / aggr15.adb
bloba4eeb231ac21fe97ce95f5d4f253cb3b30f62594
1 -- { dg-do compile }
2 -- { dg-options "-gnatws" }
4 package body Aggr15 is
6 function CREATE return DATA_T is
7 D : DATA_T;
8 begin
9 return D;
10 end;
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;
18 end Aggr15;