sem_ch3.adb (Build_Derived_Private_Type): If the parent type has discriminants...
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 2 May 2017 09:08:28 +0000 (09:08 +0000)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 2 May 2017 09:08:28 +0000 (11:08 +0200)
commitf934fd02a09a3f8ec105fb0b39708386cc202c5b
tree721168db3fe77367c153e4565edb240f83099491
parentd6fd1f07ac1f21f0dd84202088102b7b77bcd104
sem_ch3.adb (Build_Derived_Private_Type): If the parent type has discriminants...

2017-05-02  Eric Botcazou  <ebotcazou@adacore.com>

* sem_ch3.adb (Build_Derived_Private_Type): If the parent type
has discriminants, do not override the Stored_Constraint list of
the full view of the derived type with that of the derived type.

From-SVN: r247481
gcc/ada/ChangeLog
gcc/ada/sem_ch3.adb