From 6105ebb782756b449ee2ebec01bd4dd2c256ff17 Mon Sep 17 00:00:00 2001 From: Ghjuvan Lacambre Date: Wed, 26 May 2021 18:02:34 +0200 Subject: [PATCH] [Ada] Fix use of single question mark in error message gcc/ada/ * exp_prag.adb (Expand_Pragma_Inspection_Point): Fix error message. --- gcc/ada/exp_prag.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb index f686395..43ecdcd 100644 --- a/gcc/ada/exp_prag.adb +++ b/gcc/ada/exp_prag.adb @@ -2413,7 +2413,7 @@ package body Exp_Prag is if Present (Freeze_Node (Entity (Expression (Assoc)))) and then not Is_Frozen (Entity (Expression (Assoc))) then - Error_Msg_NE ("?inspection point references unfrozen object &", + Error_Msg_NE ("??inspection point references unfrozen object &", Assoc, Entity (Expression (Assoc))); Remove_Inspection_Point := True; -- 2.7.4