package Final is
   procedure Test_1 (N : in out Integer);
   procedure Test_2 (N : in out Integer);
   procedure Test_3 (N : in out Integer) with Global => null;
   procedure Test_4 (N : in out Integer) with Global => null;
end Final;
