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;