gcc/testsuite/gnat.dg/loop_optimization23_pkg.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O3" }
   3 -- PR tree-optimization/71083
   4 package body Loop_Optimization23_Pkg is
   5   procedure Foo (X : in out ArrayOfStructB) is
   6   begin
   7     for K in 0..99 loop
   8       X (K+1).b.b := X (K).b.b;
   9     end loop;
  10   end Foo;
  11 end Loop_Optimization23_Pkg;