1 files changed, 10 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gnat.dg/lto9_pkg2.adb b/gcc-4.9/gcc/testsuite/gnat.dg/lto9_pkg2.adb
new file mode 100644
index 000000000..0291d608c
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gnat.dg/lto9_pkg2.adb
@@ -0,0 +1,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;