From 75c44bc6a04d032e7c4dbce8c8dd652fae7f4ff1 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Fri, 24 Apr 2020 12:17:51 -0400
Subject: [PATCH] [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.
---
 gcc/ada/sem_warn.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 5e9c6164131..fe9c46714d6 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;
-- 
2.30.2