gcc/testsuite/gnat.dg/aggr11.adb


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;