summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/class_wide2.ads
blob: a1acc223e579756db708ba9e7a856f20618b4c03 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
package Class_Wide2 is

   type Root_1 (V : Integer) is tagged record
      null;
   end record;

   type Child is new Root_1 (1) with null record;

   type Class_Acc is access all Child'Class;

   type Grand_Child is new Child with record
      null;
   end record;

   procedure Initialize;

end Class_Wide2;