gcc/testsuite/gnat.dg/inline18.ads

with Inline18_Pkg1; use Inline18_Pkg1;

package Inline18 is
  I : Integer := My_G.Next (0);
  procedure Dummy;
end Inline18;