From: Ronan Desplanques <desplanq...@adacore.com> The format string used for the error in that case requires setting the Error_Msg_Name_1 global variable. This was not done so this patch adds the missing assignment.
gcc/ada/ChangeLog: * sem_ch13.adb (Analyze_Aspect_Specifications): Fix error emission. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/sem_ch13.adb | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 1e88ef4b48d..d080e307542 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -4634,6 +4634,7 @@ package body Sem_Ch13 is when Aspect_Designated_Storage_Model => if not All_Extensions_Allowed then + Error_Msg_Name_1 := Nam; Error_Msg_GNAT_Extension ("aspect %", Loc); goto Continue; -- 2.43.0