gcc/testsuite/gnat.dg/nested_generic1_pkg.ads

   1 generic
   2 package Nested_Generic1_Pkg is
   3
   4    type Element_Renderer is access procedure;
   5
   6    generic procedure Image_Generic (Renderer : in not null Element_Renderer);
   7
   8 end Nested_Generic1_Pkg;