blob: e84948abd2b1be84549bb547c6ffaaf76d9cfd09 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-O -gnatws" }
with Pack22_Pkg; use Pack22_Pkg;
procedure Pack22 is
package Role_Map is new Bit_Map_Generic;
type Role_List is new Role_Map.List;
Roles_1 : Role_List;
Roles_2 : Role_List;
Roles_3 : Role_List;
begin
Temp_buffer := (others => 1);
Temp_Buffer(2) := (0);
Roles_1 := Roles_2 xor Roles_3;
end;