gcc/testsuite/gnat.dg/aggr12.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-fdump-tree-original" }
   3
   4 package body Aggr12 is
   5
   6   procedure Print (Data : String) is
   7   begin
   8     null;
   9   end;
  10
  11   procedure Test is
  12   begin
  13     Print (Hair_Color_Type'Image (A.I1));
  14     Print (Hair_Color_Type'Image (A.I2));
  15   end;
  16
  17 end Aggr12;
  18
  19 -- { dg-final { scan-tree-dump-not "{.i1=0, .i2=2}" "original" } }
  20 -- { dg-final { cleanup-tree-dump "original" } }