OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [nested_agg_bitfield_constructor.adb] - Rev 696

Compare with Previous | Blame | View Log

-- { dg-do compile }
-- { dg-options "-gnatws" }
--              (bits of "Header" unused)
 
procedure Nested_Agg_Bitfield_Constructor is
 
    type Uint64 is mod 2 ** 64;
    type Uint16 is mod 2 ** 16;
 
    type Time_Stamp is record
       Sec  : Uint64;
       Year : Uint16;
    end record;
 
    type Msg_Header is record
       Stamp : Time_Stamp;
    end record;
    for Msg_Header use record
       Stamp at 0 range 0 .. 64+16-1;
    end record;
    for Msg_Header'Size use 80;
 
    type Msg is record
       Header : Msg_Header;
    end record;
 
    for Msg use record
       Header at 0 range 0 .. 191;
    end record;
 
    M : Msg := (Header => (Stamp => (2, 4)));
begin
   null;
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.