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/] [specs/] [rep_clause4.ads] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
-- { dg-do compile }
2
-- { dg-options "-O" }
3
 
4
package Rep_Clause4 is
5
 
6
  type Uns16 is mod 2**16;
7
 
8
  type Rec32 is
9
    record
10
      W1 : Uns16 := 1;
11
      W2 : Uns16 := 2;
12
    end record;
13
  for Rec32 use
14
    record
15
      W1 at 0 range 0..15;
16
      W2 at 2 range 0..15;
17
    end record;
18
  for Rec32'size use 32;
19
 
20
  type Rec48 is
21
    record
22
      W1andW2 : Rec32;
23
      W3      : Uns16;
24
    end record;
25
  for Rec48 use
26
    record
27
      W1andW2 at 0 range 0..31;
28
      W3      at 4 range 0..15;
29
    end record;
30
  for Rec48'size use 48;
31
 
32
  type Rec_Type is
33
    record
34
      Field1 : Rec48;
35
    end record;
36
  for Rec_Type use
37
    record
38
      Field1 at 0 range 0 .. 47;
39
    end record;
40
  for Rec_Type'size use 48;
41
 
42
end Rep_Clause4;

powered by: WebSVN 2.1.0

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