1with Limited_With5_Pkg;
2
3package Limited_With5 is
4  type Sup_T is new Integer;
5  procedure Doit (Obj : Limited_With5_Pkg.T);
6end Limited_With5;
7