blob: f58e25bc11dc879f75cf26a2609d5484e50899c1 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-O" }
package body Opt79 is
function F (I : Integer) return Arr is
A : Arr;
procedure Nested is
procedure Inner is
begin
A (1) := 0;
end;
begin
Inner;
end;
begin
Nested;
for J in A'Range loop
A (J) := I;
end loop;
return A;
end;
end Opt79;