gcc/testsuite/gnat.dg/pack22.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O -gnatws" }
   3
   4 with Pack22_Pkg; use Pack22_Pkg;
   5
   6 procedure Pack22 is
   7
   8    package Role_Map is new Bit_Map_Generic;
   9
  10    type Role_List is new Role_Map.List;
  11    Roles_1 : Role_List;
  12    Roles_2 : Role_List;
  13    Roles_3 : Role_List;
  14
  15 begin
  16    Temp_buffer := (others => 1);
  17    Temp_Buffer(2) := (0);
  18    Roles_1 := Roles_2 xor Roles_3;
  19 end;