summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/aggr19_pkg.adb
blob: d59da8945e29f2e3a09bce7cd2f333e77aeeee08 (plain)
1
2
3
4
5
6
7
8
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 ;