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