gcc/testsuite/gnat.dg/limited_with6.ads


1
2
3
4
5
6
7
8
9
10

with Limited_With6_Pkg;

package Limited_With6 is
  type Sup_T is new Integer;
  procedure Doit (Obj : Limited_With6_Pkg.T);

  type Rec is record
    A : Limited_With6_Pkg.Taft_Ptr;
  end record;
end Limited_With6;