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/] [misaligned_nest.adb] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
-- { dg-do run }
2
-- { dg-options "-gnatp" }
3
 
4
procedure Misaligned_Nest is
5
 
6
   type Int is record
7
      V : Integer;
8
   end record;
9
 
10
   type Block is record
11
      B : Boolean;
12
      I : Int;
13
   end record;
14
   pragma Pack (Block);
15
   for Block'Alignment use 1;
16
 
17
   type Pair is array (1 .. 2) of Block;
18
 
19
   P : Pair;
20
begin
21
   for K in P'Range loop
22
      P(K).I.V := 1;
23
   end loop;
24
end;
25
 
26
 

powered by: WebSVN 2.1.0

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