1--  { dg-compile }
2--  { dg-options "-O -gnatn" }
3
4with Inline21_Q;
5
6procedure Inline21 is
7begin
8  Inline21_Q.My_Nested_G.Proc;
9end;
10