diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2009-10-24 11:12:21 +0000 |
---|---|---|
committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-10-24 11:12:21 +0000 |
commit | e99c3ccc40fac2b63c005b2bdc7ef3a18e74cb07 (patch) | |
tree | 718c8faf34e1b5d93a9fcd050d8271216bc9a9b7 /gcc/testsuite/gnat.dg/specs | |
parent | 2f18d9afae52f1cb10d5cb9e7d1fdbe4dc8710f0 (diff) | |
download | gcc-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.ads | 12 |
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; |