limited_with.ads

用于进行gcc测试

limited with Pack1;
package limited_with is
   procedure Print_2 (Obj : access Pack1.Nested.Rec_Typ);
end limited_with;