package Inline7_Pkg1 is

  procedure Test (I : Integer);
  pragma Inline (Test);

end Inline7_Pkg1;