[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 5e9c61641318f7af300b0c5e997bc22b2bf1b5f9..fe9c46714d6a87e8ae51c7d0c54addee3090f239 100644 (file)
--- 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;