20 lines
353 B
Ada
20 lines
353 B
Ada
-- { dg-do compile }
|
|
-- { dg-options "-O2 -fdump-tree-optimized" }
|
|
|
|
function Volatile9 return Integer is
|
|
|
|
type A is array (1..4) of Integer;
|
|
pragma Volatile_Components (A);
|
|
|
|
V : A := (others => 0);
|
|
|
|
begin
|
|
for J in 1 .. 10 loop
|
|
V(1) := V(1) + 1;
|
|
end loop;
|
|
|
|
return V(1);
|
|
end;
|
|
|
|
-- { dg-final { scan-tree-dump "goto" "optimized" } }
|