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/] [pack6.adb] - 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 "-gnatws" }
3
 
4
procedure Pack6 is
5
 
6
  type R is record
7
     I : Integer;
8
     a, b, c, d, e : Character;
9
  end record;
10
 
11
  type Ar1 is array (1..4) of R;
12
  type Ar2 is array (1..4) of R;
13
  pragma Pack (Ar2);
14
 
15
  type R2 is record
16
    A : Ar2;
17
  end record;
18
  for R2 use record
19
    A at 0 range 0 .. 72*4-1;
20
  end record;
21
 
22
  X : Ar1;
23
  Y : Ar2;
24
 
25
begin
26
  Y (1) := X (1);
27
end;

powered by: WebSVN 2.1.0

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