gcc/testsuite/gnat.dg/specs/box1.ads


1
2
3
4
5
6
7
8
9
10
11
12
13

--  { dg-do compile }

package box1 is
  type Root is tagged null record;
  type Der1 is new Root with record
     B : Boolean;
  end record;
  
  type Der2 is new Der1 with null record;
  type Der3 is new Der2 with null record;
  
  Obj : Der3 := (Der2 with others => <>);
end;