gcc/testsuite/gnat.dg/rep_clause2.adb

   1 -- { dg-do compile }
   2
   3 package body Rep_Clause2 is
   4
   5    procedure Assign (From : Data; Offset : Positive; I : Index; To : out Bit_Array) is
   6    begin
   7      To (Offset .. Offset + 7) := Bit_Array (Conv (From.D(I).S.N));
   8    end;
   9
  10 end Rep_Clause2;