From: Arnaud Charlet <charlet@adacore.com>
Date: Mon, 12 Jul 2021 09:33:26 +0000 (-0400)
Subject: [Ada] Change message format on missing return
X-Git-Tag: basepoints/gcc-13~4520
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ab857d1a3b4b726262c4c9d31c22d214a3ffee53;p=thirdparty%2Fgcc.git

[Ada] Change message format on missing return

gcc/ada/

	* sem_ch6.adb (Check_Returns): Change message on missing return.
---

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 304dc1942434..f885d306b023 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -7760,7 +7760,7 @@ package body Sem_Ch6 is
                  ("RETURN statement missing following this statement<<!",
                   Last_Stm);
                Error_Msg_N
-                 ("\Program_Error ]<<!", Last_Stm);
+                 ("\Program_Error [<<!", Last_Stm);
             end if;
 
             --  Note: we set Err even though we have not issued a warning