diff options
author | Bob Duff <duff@adacore.com> | 2019-08-14 09:51:43 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-08-14 09:51:43 +0000 |
commit | f056076f5fe77fe8b13050eb3affc4c8ac700722 (patch) | |
tree | cfb611395dd402c4b53b85d431cb642a3aea0e39 /gcc/ada/table.adb | |
parent | 2a127979d92caafe31a2c9be5d9f5bb70e1f4d98 (diff) | |
download | gcc-f056076f5fe77fe8b13050eb3affc4c8ac700722.zip gcc-f056076f5fe77fe8b13050eb3affc4c8ac700722.tar.gz gcc-f056076f5fe77fe8b13050eb3affc4c8ac700722.tar.bz2 |
[Ada] Spurious error in discriminated aggregate
This patch fixes a bug in which a spurious error is given on an
aggregate of a type derived from a subtype with a constrained
discriminant.
2019-08-14 Bob Duff <duff@adacore.com>
gcc/ada/
* exp_aggr.adb (Init_Hidden_Discriminants): Avoid processing the
wrong discriminant, which could be of the wrong type.
gcc/testsuite/
* gnat.dg/discr57.adb: New testcase.
From-SVN: r274458
Diffstat (limited to 'gcc/ada/table.adb')
0 files changed, 0 insertions, 0 deletions