summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/loop_optimization4_pkg.ads
blob: a07c4e568c678ad373fc80d69bf803e6ec0f9605 (plain)
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;