gcc-4.9/gcc/testsuite/gnat.dg/loop_optimization10_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12

package Loop_Optimization10_Pkg is

   pragma Pure (Loop_Optimization10_Pkg);

   type Limit_Type is record
      Low  : Float;
      High : Float;
   end record;

   function F (Low, High : in Float) return Limit_Type;

end Loop_Optimization10_Pkg;