2 -- Reported by Martin Michlmayr <tbm@cyrius.com>
7 with Interfaces
; use Interfaces
;
9 package Unchecked_Union1
is
10 type Mode_Type
is (Mode_B2
);
12 type Value_Union
(Mode
: Mode_Type
:= Mode_B2
) is record
18 pragma Unchecked_Union
(Value_Union
);