gcc-4.9/gcc/testsuite/gnat.dg/slice7_pkg.ads


1
2
3
4
5
6
7

with System.Storage_Elements; use System.Storage_Elements;

package Slice7_Pkg is

  procedure Put (The_Object : in Storage_Array);

end Slice7_Pkg;