gcc/testsuite/gnat.dg/loop_optimization12.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O2" }
   3
   4 package body Loop_Optimization12 is
   5
   6   procedure Reset (S : Rec_Ptr) is
   7   begin
   8     for I in Enum1 loop
   9       S.F (I).all := (others =>
  10                        (others =>
  11                          (others =>
  12                            (others =>
  13                              (others =>
  14                                (others =>
  15                                  (others =>
  16                                    (others =>
  17                                     (others =>
  18                                       (others => 0))))))))));
  19     end loop;
  20   end;
  21
  22 end Loop_Optimization12;