gcc/testsuite/gnat.dg/nested_generic1_pkg.adb

   1 package body Nested_Generic1_Pkg is
   2
   3    procedure Image_Generic
   4      (Renderer : in not null Element_Renderer) is
   5    begin
   6       null;
   7    end;
   8
   9    procedure Image_Standard_Instance is new Image_Generic;
  10
  11 end Nested_Generic1_Pkg;