1package Loop_Optimization21 is
2
3  type Item is new Float;
4
5  type Item_Vector is array (Positive range <>) of Item;
6
7  function Min (X : Item_Vector) return Item;
8
9end Loop_Optimization21;
10