PR ipa/83051
[official-gcc.git] / gcc / testsuite / gnat.dg / loop_optimization5_pkg.ads
blob4af6c1ce693b57813ec4966dd06b793e497c474e
1 package Loop_Optimization5_Pkg is
3 type String_Access is access all String;
4 function Init return String;
5 function Locate (S : String) return String_Access;
7 end Loop_Optimization5_Pkg;