2 -- { dg-options "-O2" }
4 with Ada
.Containers
; use Ada
.Containers
;
5 with Ada
.Containers
.Vectors
;
7 function Opt32
return Natural is
10 is new Vectors
(Index_Type
=> Natural, Element_Type
=> Integer);
15 function Sign_Changes
return Natural is
16 Cur
: Cursor
:= To_Cursor
(V
, 0);
20 Negative
:= Element
(Cur
) < 0;
26 if (Element
(Cur
) < 0) /= Negative
then
27 Negative
:= not Negative
;