view gcc/testsuite/gnat.dg/generic_inst13_pkg-nested_g.ads @ 152:2b5abeee2509

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 1830386684a0
children
line wrap: on
line source

with Generic_Inst13_Pkg.Ops_G;

generic
package Generic_Inst13_Pkg.Nested_G is

  type T is new Generic_Inst13_Pkg.T;

  package My_Operations is new Generic_Inst13_Pkg.Ops_G (T);

  subtype List_T is My_Operations.List_T;

  function "or" (Left, Right : T) return List_T renames My_Operations."or";

end Generic_Inst13_Pkg.Nested_G;