1--  { dg-do compile }
2--  { dg-options "-O -gnatn2" }
3with Inline20_Q.IO;
4with Inline20_R;
5
6procedure Inline20 is
7begin
8   Inline20_R.Log (Inline20_Q.IO.F);
9end;
10