package Opt3_Pkg is

  procedure F (I : Short_Integer);

end Opt3_Pkg;