gcc/testsuite/gnat.dg/generic_inst13_pkg-nested_g.ads

   1 with Generic_Inst13_Pkg.Ops_G;
   2
   3 generic
   4 package Generic_Inst13_Pkg.Nested_G is
   5
   6   type T is new Generic_Inst13_Pkg.T;
   7
   8   package My_Operations is new Generic_Inst13_Pkg.Ops_G (T);
   9
  10   subtype List_T is My_Operations.List_T;
  11
  12   function "or" (Left, Right : T) return List_T renames My_Operations."or";
  13
  14 end Generic_Inst13_Pkg.Nested_G;