gcc/testsuite/gnat.dg/pointer_discr1_pkg2.ads


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;