ada: Fix internal error on aggregate nested in container aggregate
commitab246c16eeb82a9ba21be464eacc7c2aaca5f60c
authorEric Botcazou <ebotcazou@adacore.com>
Wed, 6 Sep 2023 07:37:29 +0000 (6 09:37 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Fri, 15 Sep 2023 13:01:30 +0000 (15 15:01 +0200)
treef5085c786d179ab75d671dca42d20186c2b942e4
parentee88062cc78245a5e00104889fb126d11992f583
ada: Fix internal error on aggregate nested in container aggregate

This handles the case where a component association is present.

gcc/ada/

* exp_aggr.adb (Convert_To_Assignments): In the case of a
component association, call Is_Container_Aggregate on the parent's
parent.
(Expand_Array_Aggregate): Likewise.
gcc/ada/exp_aggr.adb