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] - Rev 304

Compare with Previous | Blame | View Log

--  { dg-do compile }
--  { dg-options "-gnatws" }
 
procedure aggr4 is
   type Byte is range 0 .. 2**8 - 1;
   for Byte'Size use 8;
 
   type Time is array (1 .. 3) of Byte; 
 
   type UTC_Time is record 
      Values : Time;
   end record;
 
   type Local_Time is record
      Values : Time;
   end record;
   for Local_Time use record
      Values at 0 range 1 .. 24;
   end record;
 
   LOC : Local_Time;
   UTC : UTC_Time;
 
begin
   UTC.Values := LOC.Values;
   UTC := (Values => LOC.Values);
end;
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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