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