Add new tests
[people/dverkamp/gcc.git] / gcc / testsuite / gnat.dg / aggr7.adb
1 --  { dg-do compile }
2
3 procedure aggr7 is
4    
5    package P is
6       type T is limited private;
7       type TT is limited private;
8       type TTT is tagged limited private;
9    private
10       type T is limited
11           record
12              Self : access T := T'Unchecked_Access;
13           end record;
14       type TT is tagged limited
15           record
16              Self : access TT := TT'Unchecked_Access;
17           end record;
18       type TTT is tagged limited
19           record
20              Self : access TTT := TTT'Unchecked_Access;
21           end record;
22    end P;
23    
24    package body P is
25       X : T := (Self => <>);
26       XX : TT := (Self => <>);
27       XXX : TTT := (Self => <>);
28       Y : T := (others => <>);
29       YY : TT := (others => <>);
30       YYY : TTT := (others => <>);
31    end P;
32 begin
33    null;
34 end aggr7;