gcc/testsuite/gnat.dg/inline21.adb

--  { dg-compile }
--  { dg-options "-O -gnatn" }

with Inline21_Q;

procedure Inline21 is
begin
  Inline21_Q.My_Nested_G.Proc;
end;