gcc/testsuite/gnat.dg/pointer_discr1_pkg2.ads

   1 with Unchecked_Conversion;
   2 with Pointer_Discr1_Pkg3;
   3
   4 package Pointer_Discr1_Pkg2 is
   5
   6   subtype T_WINDOW is Pointer_Discr1_Pkg3.T_WINDOW(Pointer_Discr1_Pkg3.One);
   7
   8   function TO_WINDOW is new Unchecked_Conversion(Integer, T_WINDOW);
   9
  10 end Pointer_Discr1_Pkg2;