1-- { dg-do compile }
2-- { dg-options "-O3" }
3-- { dg-options "-O3 -msse2" { target i?86-*-* x86_64-*-* } }
4
5package body Loop_Optimization10 is
6
7   function F (Low, High : in Array_Real_Type) return Array_Limit_Type is
8      Result : Array_Limit_Type;
9   begin
10      for I in Result'Range
11      loop
12         Result (I) := F (Low (I), High (I));
13      end loop;
14      return Result;
15   end;
16
17end Loop_Optimization10;
18
19