gcc/testsuite/gnat.dg/opt79.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

-- { 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;