diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2009-06-03 10:52:40 +0000 |
---|---|---|
committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-06-03 10:52:40 +0000 |
commit | cdaa0e0b8c1cd7569b50ab50819401f7d399983b (patch) | |
tree | 814533141d2c4d825ded89a4f5223f2bb99676da /gcc/testsuite/gnat.dg/specs/root-level_1.ads | |
parent | a6a29d0c39e207cf1ec8ad94ec44744ae9814660 (diff) | |
download | gcc-cdaa0e0b8c1cd7569b50ab50819401f7d399983b.zip gcc-cdaa0e0b8c1cd7569b50ab50819401f7d399983b.tar.gz gcc-cdaa0e0b8c1cd7569b50ab50819401f7d399983b.tar.bz2 |
decl.c (gnat_to_gnu_entity): When adjusting the discriminant nodes in an extension...
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Type>: When
adjusting the discriminant nodes in an extension, use the full view
of the parent subtype if it is of a private kind.
From-SVN: r148125
Diffstat (limited to 'gcc/testsuite/gnat.dg/specs/root-level_1.ads')
-rw-r--r-- | gcc/testsuite/gnat.dg/specs/root-level_1.ads | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/root-level_1.ads b/gcc/testsuite/gnat.dg/specs/root-level_1.ads new file mode 100644 index 0000000..6bcb125 --- /dev/null +++ b/gcc/testsuite/gnat.dg/specs/root-level_1.ads @@ -0,0 +1,14 @@ +package Root.Level_1 is + + type Level_1_Type (First : Natural; + Second : Natural) is new Root_Type with private; + +private + + type Level_1_Type (First : Natural; + Second : Natural) is new Root_Type (First => First) + with record + Buffer_1 : Buffer_Type (1 .. Second); + end record; + +end Root.Level_1; |