1--  { dg-do compile }
2--  { dg-options "-O -gnatn" }
3with Inline17_Pkg1; use Inline17_Pkg1;
4with Inline17_Pkg2; use Inline17_Pkg2;
5
6procedure Inline17 is
7   use type SQL_Field;
8begin
9   Test;
10end;
11