gcc/testsuite/gnat.dg/discr_test2.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

--  { dg-do compile }

procedure Discr_Test2 is
   type Ptr is access all integer;
   type Ar is array (Integer range <>) of Ptr;
        
   type Inner (Discr : Integer) is record
      Comp : Ar (1..Discr);
   end record;

   type Wrapper (Discr : Integer) is record
      Comp :  Inner (Discr);
   end record;

   Val  : constant Wrapper := (0, Comp => <>);
begin
   null;
end;