box1.ads

来自「用于进行gcc测试」· ADS 代码 · 共 14 行

--  { 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;