1-- { dg-do compile }
2-- { dg-options "-O" }
3
4with Aggr11_Pkg; use Aggr11_Pkg;
5
6procedure Aggr11 is
7
8  A : Arr := ((1 => (Kind  => No_Error, B => True),
9               2 => (Kind => Error),
10               3 => (Kind => Error),
11               4 => (Kind  => No_Error, B => True),
12               5 => (Kind  => No_Error, B => True),
13               6 => (Kind  => No_Error, B => True)));
14
15begin
16   null;
17end;
18