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