gcc/testsuite/gnat.dg/loop_optimization4_pkg.ads


1
2
3
4
5
6
7
8
9

package Loop_Optimization4_Pkg is

   Max_Debug_Buffer_Len : Natural := 8 * 1024;
   Debug_Buffer : String (1 .. Max_Debug_Buffer_Len);
   Debug_Buffer_Len : Natural range 0 .. Max_Debug_Buffer_Len;

   procedure Add (Phrase : String);

end Loop_Optimization4_Pkg;