gcc/testsuite/gnat.dg/loop_optimization4_pkg.ads

   1 package Loop_Optimization4_Pkg is
   2
   3    Max_Debug_Buffer_Len : Natural := 8 * 1024;
   4    Debug_Buffer : String (1 .. Max_Debug_Buffer_Len);
   5    Debug_Buffer_Len : Natural range 0 .. Max_Debug_Buffer_Len;
   6
   7    procedure Add (Phrase : String);
   8
   9 end Loop_Optimization4_Pkg;