[multiple changes]
authorSamuel Tardieu <sam@gcc.gnu.org>
Tue, 15 Apr 2008 19:05:29 +0000 (19:05 +0000)
committerSamuel Tardieu <sam@gcc.gnu.org>
Tue, 15 Apr 2008 19:05:29 +0000 (19:05 +0000)
commitb48a653174158c79c24c1e347859e924a5c9a4ac
treeb0574834c10dbab8128e37cc9354080be70ea76e
parentbd1f29d927823c063ef88658743c274034fa801a
[multiple changes]

2008-04-15  Ed Schonberg  <schonberg@adacore.com>

    gcc/ada/
PR ada/22387
* exp_ch5.adb (Expand_Assign_Record): Within an initialization
procedure for a derived type retrieve the discriminant values from
the parent using the corresponding discriminant.

2008-04-15  Samuel Tardieu  <sam@rfc1149.net>

    gcc/testsuite/
PR ada/22387
* gnat.dg/specs/corr_discr.ads: New.

From-SVN: r134326
gcc/ada/ChangeLog
gcc/ada/exp_ch5.adb
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/specs/corr_discr.ads [new file with mode: 0644]