gcc/testsuite/gnat.dg/aggr19_pkg.adb

   1 package body Aggr19_Pkg is
   2
   3   procedure Proc (Pool : in out Rec5) is
   4   begin
   5     Pool.Ent := (Kind => Two, Node => Pool.Ent.Node, I => 0);
   6   end;
   7
   8 end ;