2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>

[official-gcc.git] / gcc / testsuite / gnat.dg / aggr19_pkg.adb

package body Aggr19_Pkg is

  procedure Proc (Pool : in out Rec5) is
  begin
    Pool.Ent := (Kind => Two, Node => Pool.Ent.Node, I => 0);
  end;

end ;