Sign in
gnu
/
gcc
/
93d183a5fff92d80c0545b7a7ce9b77fe7a258f7
/
.
/
gcc
/
testsuite
/
gnat.dg
/
loop_optimization16_pkg.adb
blob: e4142f6e6a1be26e4d375a45735a26ac1f9ea0f8 [
file
] [
log
] [
blame
]
package
body
Loop_Optimization16_Pkg
is
function
F
return
Natural
is
begin
return
Natural
(
Index_Base
'Last);
end;
end Loop_Optimization16_Pkg;