From 618db8d5ecd6d113d3089fda6fbf8bf472ddfc25 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Marc=20Poulhi=C3=A8s?= Date: Wed, 8 Mar 2023 20:39:45 +0100 Subject: [PATCH] ada: Fix error message for Aggregate aspect The error message was wrongly using % instead of & in the format string, causing the displayed message to refer to incorrect names in some cases. gcc/ada/ * sem_ch13.adb (Check_Aspect_At_Freeze_Point): fix format string, use existing local Ident. --- gcc/ada/sem_ch13.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 073e8f9b0d8a..550f10366f2e 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -11147,8 +11147,8 @@ package body Sem_Ch13 is when Aspect_Aggregate => if Is_Array_Type (Entity (ASN)) then Error_Msg_N - ("aspect% can only be applied to non-array type", - Identifier (ASN)); + ("aspect& can only be applied to non-array type", + Ident); end if; Resolve_Aspect_Aggregate (Entity (ASN), Expression (ASN)); return; -- 2.47.2