view gcc/testsuite/gnat.dg/generic_inst2.ads @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
line wrap: on
line source

with Generic_Inst2_C;

package Generic_Inst2 is
   type T is private;
   procedure Foo (X : not null access T);
   package CI is new Generic_Inst2_C (T, Foo => Foo);
private
   type S is access Integer;
   type T is new S;
end;