gcc/testsuite/gnat.dg/pack22_pkg.adb

   1 package body Pack22_Pkg is
   2
   3    package body Bit_Map_Generic is
   4
   5       function "xor" (L, R : List) return List is
   6          Temp : List;
   7          for Temp'address use Temp_buffer'address;
   8       begin
   9          Temp.Bits := L.Bits xor R.Bits;
  10          Temp.Counter.Counter := 0;
  11          return Temp;
  12       end;
  13
  14    end Bit_Map_Generic;
  15
  16 end Pack22_Pkg;