package Opt38_Pkg is

  procedure Test (I : Integer);

end Opt38_Pkg;