Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
inline18_gen3.adb
blob: 4f786c2de3fc31e0231984a1685a841a72771cb5 [
file
] [
log
] [
blame
]
package
body
Inline18_Gen3
is
package
body
Inner_G
is
function
Next
(
Position
:
Index_T
)
return
Index_T
is
begin
return
Position
;
end
;
end
Inner_G
;
end
Inline18_Gen3
;