summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/lto9_pkg2.adb
blob: 0291d608c4e583cad3dcb44ddd8a88bd137b8ba2 (plain)
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;