gcc-4.9/gcc/testsuite/gnat.dg/lto9_pkg2.adb


1
2
3
4
5
6
7
8
9
10

package body Lto9_Pkg2 is

   procedure Put (List     : in out List_Type;
                  Elem_Ptr : in     Element_Ptr;
                  Location : in     Index) is
   begin
      List.Elements(Location) := Elem_Ptr;
   end Put;

end Lto9_Pkg2;