1generic 2 3 type Index_T is range <>; 4 5package Inline18_Gen3 is 6 7 generic 8 package Inner_G is 9 function Next (Position : Index_T) return Index_T; 10 pragma Inline (Next); 11 end Inner_G; 12 13end Inline18_Gen3; 14