1-- { dg-do compile } 2-- { dg-options "-fdump-tree-gimple" } 3 4package body Aggr30 is 5 6 Null_Constant : constant Rec := (Data => (others => 0), 7 Padding => (others => 0)); 8 procedure Init is 9 begin 10 Instance := Null_Constant; 11 end; 12 13 procedure Init_Volatile is 14 begin 15 Instance_Volatile := Null_Constant; 16 end; 17 18end Aggr30; 19 20-- { dg-final { scan-tree-dump-times "= {}" 2 "gimple"} } 21