2 package Null_Aggr_Bug
is
4 type Rec1
is null record;
6 type Rec2
is tagged null record;
8 type Rec3
is new Rec2
with null record;
10 X1
: Rec1
:= (null record);
11 Y1
: Rec1
:= (others => <>);
13 X2
: Rec2
:= (null record);
14 Y2
: Rec2
:= (others => <>);
16 X3
: Rec3
:= (null record);
17 Y3
: Rec3
:= (others => <>);
18 Z3
: Rec3
:= (Rec2
with others => <>);