Merge remote-tracking branch 'gnu/gcc-4_7-branch' into rework

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

diff --git a/gcc/testsuite/gnat.dg/aggr19_pkg.adb b/gcc/testsuite/gnat.dg/aggr19_pkg.adb
new file mode 100644 (file)
index 0000000..d59da89
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/aggr19_pkg.adb
@@ -0,0 +1,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 ;