with Inline18_Pkg1; use Inline18_Pkg1;

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