diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/lto9_pkg2.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/lto9_pkg2.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/lto9_pkg2.adb b/gcc/testsuite/gnat.dg/lto9_pkg2.adb new file mode 100644 index 00000000000..0291d608c4e --- /dev/null +++ b/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; |