[Ada] Fix awkward placement of freeze node for actual subtype
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 10 Oct 2019 15:24:38 +0000 (15:24 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Thu, 10 Oct 2019 15:24:38 +0000 (15:24 +0000)
commitdfdd3de1238531889e65fc4c5498a3a5f28ff570
treeb295ef1b31d93d98e07348986e0b442bdc77ea08
parentab9e20840f3ae9c5fe731851c6a384cd4f01f844
[Ada] Fix awkward placement of freeze node for actual subtype

2019-10-10  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* sem_ch6.adb (Set_Actual_Subtypes): Put the freeze node of the
actual subtype after its declaration when the type of the formal
has a predicate.

From-SVN: r276828
gcc/ada/ChangeLog
gcc/ada/sem_ch6.adb