[Ada] Fix use of single question mark in error message

gcc/ada/

	* exp_prag.adb (Expand_Pragma_Inspection_Point): Fix error
	message.

diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb
index f686395a9ef3fea5cec58300f3331eb87fea4886..43ecdcdd333a18c4959c72749f408321c72f2406 100644 (file)
--- 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;