Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
inline18_gen3.ads
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
;