gcc/testsuite/gnat.dg/aggr30.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-fdump-tree-gimple" }
   3
   4 package 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
  18 end Aggr30;
  19
  20 -- { dg-final { scan-tree-dump-times "= {}" 2 "gimple"} }