3 type bit is (zero, one);
22 type Derived is record
32 for Derived use record
34 b at 0 range 5 .. 20; -- unaligned HImode bitfield
35 f2 at 0 range 21 .. 21;
36 f3 at 0 range 22 .. 23;
37 f4 at 0 range 24 .. 31;
38 i1 at 4 range 0 .. 31;
39 i2 at 8 range 0 .. 31;
49 d at 1 range 0 .. 95; -- BLKmode bitfield
52 My_R : constant R := (u=>1,
64 procedure check (arg : R);