| -- { dg-do compile } | |
| -- { dg-options "-gnatws" } | |
| package body Aggr15 is | |
| function CREATE return DATA_T is | |
| D : DATA_T; | |
| begin | |
| return D; | |
| end; | |
| function ALL_CREATE return ALL_DATA_T is | |
| C : constant ALL_DATA_T := (others => (others => Create)); | |
| begin | |
| return C; | |
| end; | |
| end Aggr15; |