-- { dg-do compile }
-- { dg-options "-O -gnatn" }
with Inline17_Pkg1; use Inline17_Pkg1;
with Inline17_Pkg2; use Inline17_Pkg2;
procedure Inline17 is
use type SQL_Field;
begin
Test;
end;
-- { dg-do compile }
-- { dg-options "-O -gnatn" }
with Inline17_Pkg1; use Inline17_Pkg1;
with Inline17_Pkg2; use Inline17_Pkg2;
procedure Inline17 is
use type SQL_Field;
begin
Test;
end;