gcc/testsuite/gnat.dg/loop_optimization11.adb

   1 -- { dg-do compile }\r
   2 -- { dg-options "-O" }\r
   3 \r
   4 with Loop_Optimization11_Pkg; use Loop_Optimization11_Pkg;\r
   5 \r
   6 procedure Loop_Optimization11 is\r
   7    Arr : array (Prot, Mem) of Integer := (others => (others => 0));\r
   8 begin\r
   9    Put_Line (Img (0) & " ");\r
  10    for I in Arr'Range (1) loop\r
  11       for J in Arr'Range (2) loop\r
  12          declare\r
  13             Elem : Integer renames Arr (I, J);\r
  14          begin\r
  15             Put_Line (Img (Elem));\r
  16          end;\r
  17       end loop;\r
  18    end loop;\r
  19 end;\r