gcc/testsuite/gnat.dg/generic_inst12.adb

--  { dg-do run }
--  { dg-options "-O -gnatn" }
with Generic_Inst12_Pkg2;

procedure Generic_Inst12 is

  procedure My_Inner_G is new Generic_Inst12_Pkg2.Inner_G;

begin
  My_Inner_G (1);
  Generic_Inst12_Pkg2.Proc (1);
end;