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