PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / loop_optimization4_pkg.adb
blobba372f6bddd32ed8b1cadb633f99ebcf1177d1c3
1 package body Loop_Optimization4_Pkg is
3 procedure Add (Phrase : String) is
4 begin
5 if Debug_Buffer_Len = Max_Debug_Buffer_Len then
6 return;
7 end if;
8 for I in Phrase'Range loop
9 Debug_Buffer_Len := Debug_Buffer_Len + 1;
10 Debug_Buffer (Debug_Buffer_Len) := Phrase (I);
11 if Debug_Buffer_Len = Max_Debug_Buffer_Len then
12 exit;
13 end if;
14 end loop;
15 end Add;
17 end Loop_Optimization4_Pkg;