gcc-4.9/gcc/testsuite/gnat.dg/loop_optimization12.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

-- { dg-do compile }
-- { dg-options "-O2" }

package body Loop_Optimization12 is

  procedure Reset (S : Rec_Ptr) is
  begin
    for I in Enum1 loop
      S.F (I).all := (others =>
                       (others =>
                         (others =>
                           (others =>
                             (others =>
                               (others =>
                                 (others =>
                                   (others =>
                                    (others =>
                                      (others => 0))))))))));
    end loop;
  end;

end Loop_Optimization12;