1-- { dg-do compile }
2-- { dg-options "-O3" }
3-- PR tree-optimization/71083
4package 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;
11end Loop_Optimization23_Pkg;
12