summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/aggr11.adb
blob: 1771d62cacb54557d4e0852779229e54ab3e7bff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
-- { dg-do compile }
-- { dg-options "-O" }

with Aggr11_Pkg; use Aggr11_Pkg;

procedure Aggr11 is

  A : Arr := ((1 => (Kind  => No_Error, B => True),
               2 => (Kind => Error),
               3 => (Kind => Error),
               4 => (Kind  => No_Error, B => True),
               5 => (Kind  => No_Error, B => True),
               6 => (Kind  => No_Error, B => True)));

begin
   null;
end;