Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/nested_agg_bitfield_constructor.adb @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { 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;