1with Limited_With6_Pkg;
2
3package Limited_With6 is
4  type Sup_T is new Integer;
5  procedure Doit (Obj : Limited_With6_Pkg.T);
6
7  type Rec is record
8    A : Limited_With6_Pkg.Taft_Ptr;
9  end record;
10end Limited_With6;
11