Add NIOS2 support. Code from SourceyG++.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / rep_clause2.adb

-- { dg-do compile }\r
\r
package body Rep_Clause2 is\r
\r
   procedure Assign (From : Data; Offset : Positive; I : Index; To : out Bit_Array) is\r
   begin\r
     To (Offset .. Offset + 7) := Bit_Array (Conv (From.D(I).S.N));\r
   end;\r
\r
end Rep_Clause2;\r