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
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