[Bug ada/99802] [11 regression] assignment of aggregate done component-by-component

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99802

--- Comment #3 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Eric Botcazou <ebotca...@gcc.gnu.org>:

https://gcc.gnu.org/g:471babd88668dbe4f9ff4dba6d2036ecef09653b

commit r11-7900-g471babd88668dbe4f9ff4dba6d2036ecef09653b
Author: Eric Botcazou <ebotca...@adacore.com>
Date:   Tue Mar 30 00:41:46 2021 +0200

    Fix wrong assignment of aggregate to full-access component

    This is a regression present on the mainline: the compiler (front-end)
fails
    to assign an aggregate to a full-access component (i.e. Atomic or VFA) as a
    whole if the type of the component is not full access itself.

    gcc/ada/
            PR ada/99802
            * freeze.adb (Is_Full_Access_Aggregate): Call Is_Full_Access_Object
            on the name of an N_Assignment_Statement to spot full access.