2 -- { dg-options "-O -gnatws" }
4 with Pack22_Pkg
; use Pack22_Pkg
;
8 package Role_Map
is new Bit_Map_Generic
;
10 type Role_List
is new Role_Map
.List
;
16 Temp_buffer
:= (others => 1);
17 Temp_Buffer
(2) := (0);
18 Roles_1
:= Roles_2
xor Roles_3
;