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


1
2
3
4
5
6
7

package Loop_Optimization5_Pkg is

  type String_Access is access all String;
  function Init return String;
  function Locate (S : String) return String_Access;

end Loop_Optimization5_Pkg;