gcc/testsuite/gnat.dg/loop_optimization23.adb

   1 -- { dg-do run }
   2 -- { dg-options "-O3" }
   3 -- PR tree-optimization/71083
   4 with Loop_Optimization23_Pkg;
   5 use Loop_Optimization23_Pkg;
   6 procedure Loop_Optimization23 is
   7   Test : ArrayOfStructB;
   8 begin
   9   Test (0).b.b := 9999;
  10   Foo (Test);
  11   if Test (100).b.b /= 9999 then
  12     raise Program_Error;
  13   end if;
  14 end;