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