gcc/testsuite/gnat.dg/opt74_pkg.adb

   1 package body Opt74_Pkg is
   2
   3    procedure Proc (Found : out Integer; Index : out Integer) is
   4    begin
   5       Index := 1;
   6       Found := 0;
   7       while (Index <= A'Last) and (Found = 0) loop
   8          if A (Index) = 2 then
   9             Found := 1;
  10          else
  11             Index := Index + 1;
  12          end if;
  13       end loop;
  14    end;
  15
  16 end Opt74_Pkg;