package body My_File is

   procedure Use_Null_Rec (X : T_Null) is null;

   procedure Test_Proc (X : in out R; Y : T2; A : String; M : Matrix; Z : R2; D : Shape; V : Shape_Array) is null;

end My_File;
