1 2 3 4 5 6 7
package Loop_Optimization16_Pkg is type Index_Base is range 0 .. 127; function F return Natural; end Loop_Optimization16_Pkg;