968e9b3be9e8e9afcd5a55804bfe6c466313e28c - gcc

commit: 968e9b3be9e8e9afcd5a55804bfe6c466313e28c
[log]
author: Eric Botcazou <ebotcazou@adacore.com>
Thu Dec 11 10:07:15 2025 +0100
committer: Eric Botcazou <ebotcazou@adacore.com>
Thu Dec 11 13:38:37 2025 +0100
tree: bca4a572af78120610b373174e47d7abae3088e6
parent: 1b6bc907fe80f50ae6858dc55d679abcf23f028e [diff]

Ada: Fix internal error on illegal aggregate for private type

This just adds a guard for illegal cases to Resolve_Record_Aggregate.

gcc/ada/
	PR ada/123088
	* sem_aggr.adb (Resolve_Record_Aggregate): Add missing guard.

gcc/testsuite/
	* gnat.dg/aggr33.adb: New test.

gcc/ada/sem_aggr.adb[diff]
gcc/testsuite/gnat.dg/aggr33.adb[Added - diff]

2 files changed

tree: bca4a572af78120610b373174e47d7abae3088e6