1package Inline10_Pkg is
2
3  procedure Test (I : Integer);
4  pragma Inline (Test);
5
6end Inline10_Pkg;
7