aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/specs
diff options
context:
space:
mode:
authorEric Botcazou <ebotcazou@adacore.com>2009-10-24 11:12:21 +0000
committerEric Botcazou <ebotcazou@gcc.gnu.org>2009-10-24 11:12:21 +0000
commite99c3ccc40fac2b63c005b2bdc7ef3a18e74cb07 (patch)
tree718c8faf34e1b5d93a9fcd050d8271216bc9a9b7 /gcc/testsuite/gnat.dg/specs
parent2f18d9afae52f1cb10d5cb9e7d1fdbe4dc8710f0 (diff)
downloadgcc-e99c3ccc40fac2b63c005b2bdc7ef3a18e74cb07.zip
gcc-e99c3ccc40fac2b63c005b2bdc7ef3a18e74cb07.tar.gz
gcc-e99c3ccc40fac2b63c005b2bdc7ef3a18e74cb07.tar.bz2
decl.c (gnat_to_gnu_entity): When processing the parent type...
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Type>: When processing the parent type, build the COMPONENT_REF for a discriminant with the proper type. From-SVN: r153528
Diffstat (limited to 'gcc/testsuite/gnat.dg/specs')
-rw-r--r--gcc/testsuite/gnat.dg/specs/pack4.ads12
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/pack4.ads b/gcc/testsuite/gnat.dg/specs/pack4.ads
new file mode 100644
index 0000000..82b76d2
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/pack4.ads
@@ -0,0 +1,12 @@
+package Pack4 is
+
+ type Buffer is array (Natural range <>) of Boolean;
+
+ type Root (Size : Natural) is tagged record
+ Data : Buffer (1..Size);
+ end record;
+ pragma Pack (Root);
+
+ type Derived is new Root with null record;
+
+end Pack4;