1-- { dg-do compile } 2-- { dg-options "-O" } 3 4package body Opt79 is 5 6 function F (I : Integer) return Arr is 7 A : Arr; 8 9 procedure Nested is 10 11 procedure Inner is 12 begin 13 A (1) := 0; 14 end; 15 16 begin 17 Inner; 18 end; 19 20 begin 21 Nested; 22 for J in A'Range loop 23 A (J) := I; 24 end loop; 25 return A; 26 end; 27 28end Opt79; 29