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/] [aggr4.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 aggr4 is
5
   type Byte is range 0 .. 2**8 - 1;
6
   for Byte'Size use 8;
7
 
8
   type Time is array (1 .. 3) of Byte;
9
 
10
   type UTC_Time is record
11
      Values : Time;
12
   end record;
13
 
14
   type Local_Time is record
15
      Values : Time;
16
   end record;
17
   for Local_Time use record
18
      Values at 0 range 1 .. 24;
19
   end record;
20
 
21
   LOC : Local_Time;
22
   UTC : UTC_Time;
23
 
24
begin
25
   UTC.Values := LOC.Values;
26
   UTC := (Values => LOC.Values);
27
end;

powered by: WebSVN 2.1.0

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