summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/pointer_discr1_pkg2.ads
blob: c5106907387d0eed6edd7b8a504a5b38d56f26e5 (plain)
1
2
3
4
5
6
7
8
9
10
with Unchecked_Conversion;
with Pointer_Discr1_Pkg3;

package Pointer_Discr1_Pkg2 is

  subtype T_WINDOW is Pointer_Discr1_Pkg3.T_WINDOW(Pointer_Discr1_Pkg3.One);

  function TO_WINDOW is new Unchecked_Conversion(Integer, T_WINDOW);

end Pointer_Discr1_Pkg2;