From: Arnaud Charlet <charlet@adacore.com>
Date: Fri, 24 Apr 2020 16:17:51 +0000 (-0400)
Subject: [Ada] Add missing warning tag for some overlapping actuals warnings
X-Git-Tag: basepoints/gcc-12~6735
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=75c44bc6a04d032e7c4dbce8c8dd652fae7f4ff1;p=thirdparty%2Fgcc.git

[Ada] Add missing warning tag for some overlapping actuals warnings

2020-06-19  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* sem_warn.adb (Warn_On_Overlapping_Actuals): Add missing
	warning tag.
---

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 5e9c61641318..fe9c46714d6a 100644
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -3854,7 +3854,7 @@ package body Sem_Warn is
                         then
                            if Act1 = First_Actual (N) then
                               Error_Msg_FE
-                                ("<<`IN OUT` prefix overlaps with "
+                                ("<I<`IN OUT` prefix overlaps with "
                                  & "actual for&", Act1, Form2);
 
                            else
@@ -3862,7 +3862,7 @@ package body Sem_Warn is
 
                               Error_Msg_Node_2 := Form2;
                               Error_Msg_FE
-                                ("<<writable actual for & overlaps with "
+                                ("<I<writable actual for & overlaps with "
                                  & "actual for&", Act1, Form2);
                            end if;
 
@@ -3874,7 +3874,7 @@ package body Sem_Warn is
                            --  This is one of the messages
 
                            Error_Msg_FE
-                             ("<<writable actual for & overlaps with "
+                             ("<I<writable actual for & overlaps with "
                               & "actual for&", Act1, Form1);
                         end if;
                      end if;