gcc/testsuite/gnat.dg/loop_optimization4_pkg.adb

   1 package body Loop_Optimization4_Pkg is
   2
   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;
  16
  17 end Loop_Optimization4_Pkg;