[Ada] Crash on inherited component in type extension in generic unit.
authorEd Schonberg <schonberg@adacore.com>
Tue, 8 Dec 2020 00:34:01 +0000 (19:34 -0500)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 28 Apr 2021 09:38:05 +0000 (05:38 -0400)
commitbb60efc5c75afa2c409c740b970f5f1e6fdd4890
tree81b3a6df324569bef4c09a19b7dafe8707c313fe
parentff683f9f0341391253eef171890f1b98f18ec99d
[Ada] Crash on inherited component in type extension in generic unit.

gcc/ada/

* exp_ch3.adb (Expand_Record_Extension): Set Parent_Subtype on
the type extension when within a generic unit, even though
expansion is disabled, to allow for proper resolution of
selected components inherited from an ancestor.
gcc/ada/exp_ch3.adb