OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [aggr7.adb] - Blame information for rev 316

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
--  { 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;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.