gcc-4.9/gcc/testsuite/gnat.dg/loop_optimization3_pkg.adb


1
2
3
4
5
6
7
8

package body Loop_Optimization3_Pkg is

  function F (n : Integer) return Integer is
  begin
    return n;
  end;

end Loop_Optimization3_Pkg;