1with Loop_Optimization7_Pkg; use Loop_Optimization7_Pkg;
2
3package Loop_Optimization7  is
4
5   type Arr is array (1..8) of Rec;
6
7   function Conv (A : Arr) return Arr;
8
9end Loop_Optimization7;
10