[Ada] Fix spurious error on derived private type with predicate
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 9 Apr 2020 10:56:01 +0000 (12:56 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 16 Jun 2020 13:07:18 +0000 (09:07 -0400)
commitdad94b3aca12f25cd2b3f6c32b7e55d69c8c4ad6
tree614286d9ac2c0641e1e3afaf0e11a075c37403f4
parenteb6dc6f301e444c3644fc209c786c7edb9bb238d
[Ada] Fix spurious error on derived private type with predicate

2020-06-16  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* sem_ch4.adb (Common_Type): Go to Underlying_Full_View, if any.
gcc/ada/sem_ch4.adb