blob: 798df5f298c9daf771066a15c497667d29be67ae [file] [log] [blame]
generic
type Index_T is range <>;
package Inline18_Gen3 is
generic
package Inner_G is
function Next (Position : Index_T) return Index_T;
pragma Inline (Next);
end Inner_G;
end Inline18_Gen3;