2015-07-03 Christophe Lyon <christophe.lyon@linaro.org>
[official-gcc.git] / gcc / testsuite / gnat.dg / loop_optimization3_pkg.adb
blob7a64815033d8571bc90414a489e64de0858861cb
1 package body Loop_Optimization3_Pkg is
3 function F (n : Integer) return Integer is
4 begin
5 return n;
6 end;
8 end Loop_Optimization3_Pkg;