1 2 3 4 5 6 7 8
package body Loop_Optimization3_Pkg is function F (n : Integer) return Integer is begin return n; end; end Loop_Optimization3_Pkg;