PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / loop_optimization21.ads
blob4510b0e9c9210936ee7c4492df951bbbcf53c919
1 package Loop_Optimization21 is
3 type Item is new Float;
5 type Item_Vector is array (Positive range <>) of Item;
7 function Min (X : Item_Vector) return Item;
9 end Loop_Optimization21;