gcc/testsuite/gnat.dg/lto9_pkg2.adb

   1 package body Lto9_Pkg2 is
   2
   3    procedure Put (List     : in out List_Type;
   4                   Elem_Ptr : in     Element_Ptr;
   5                   Location : in     Index) is
   6    begin
   7       List.Elements(Location) := Elem_Ptr;
   8    end Put;
   9
  10 end Lto9_Pkg2;