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