2 -- { dg-options "-O -w" }
15 for P in Unit'Range loop
16 if X (P) >= Y (P) then
17 Res (P) := If_True (P);
19 Res (P) := If_False (P);
25 pragma Inline_Always (Cmove);
30 Data : in out Unit_Vector)
33 for Index in Data'Range loop
34 Data (Index) := Mul (Zero_Unit, Zero_Unit);
36 Addend : constant Unit
37 := Cmove (CV (Index), Zero_Unit, Zero_Unit, Zero_Unit) ;
39 Data (Index) := Data(Index) + Addend;
41 This.Data (Index) := Data (Index);