gcc/testsuite/gnat.dg/class_wide2.ads

   1 package Class_Wide2 is
   2
   3    type Root_1 (V : Integer) is tagged record
   4       null;
   5    end record;
   6
   7    type Child is new Root_1 (1) with null record;
   8
   9    type Class_Acc is access all Child'Class;
  10
  11    type Grand_Child is new Child with record
  12       null;
  13    end record;
  14
  15    procedure Initialize;
  16
  17 end Class_Wide2;