1 2 3 4 5 6 7 8 9 10 11 12
with Limited_With3; with Limited_With3_Pkg1; package Limited_With3_Pkg3 is package My_Q is new Limited_With3_Pkg1 (Limited_With3.T); type TT is tagged record State : My_Q.Element_Access; end record; end Limited_With3_Pkg3;