ada: Fix crash on iterated component in expression function
commit5fa02009e49c5f6d8a187db4cb87405b3ef43b88
authorEric Botcazou <ebotcazou@adacore.com>
Sun, 29 Jan 2023 23:05:42 +0000 (30 00:05 +0100)
committerMarc Poulhiès <poulhies@adacore.com>
Tue, 16 May 2023 08:30:58 +0000 (16 10:30 +0200)
tree943a2249b8784b0c13b50a64a622c61c6df76aaa
parentae334957c7dbbf3db6b612cd6f5fe058877abac4
ada: Fix crash on iterated component in expression function

The problem is that the freeze node generated for the type of a static
subexpression present in the expression function is incorrectly placed
inside instead of outside the function.

gcc/ada/

* freeze.adb (Freeze_Expression): When the freezing is to be done
outside the current scope, skip any scope that is an internal loop.
gcc/ada/freeze.adb