[gcc r13-3718] ada: Fix missing tag for with of an obsolescent function

[gcc r13-3718] ada: Fix missing tag for with of an obsolescent function

[Marc Poulhi?s]

https://gcc.gnu.org/g:c7dc111e9d8e2eb83e45870a98c193f2fd681313

commit r13-3718-gc7dc111e9d8e2eb83e45870a98c193f2fd681313
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Wed Sep 7 15:01:16 2022 +0200

    ada: Fix missing tag for with of an obsolescent function
    
    Fix minor inconsistency in tags of warnings about obsolescent entities.
    
    Part of cleaning up the warnings machinery to better handle references
    to unset objects.
    
    gcc/ada/
    
            * sem_warn.adb (Output_Obsolescent_Entity_Warnings): Tag warnings
            about obsolescent functions just like we tag similar warnings for
            packages and procedures.

Diff:
---
 gcc/ada/sem_warn.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 77d58211b50..83b9b20b44e 100644
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -3146,7 +3146,7 @@ package body Sem_Warn is
               ("?j?with of obsolescent procedure& declared#", N, E);
          else
             Error_Msg_NE
-              ("??with of obsolescent function& declared#", N, E);
+              ("?j?with of obsolescent function& declared#", N, E);
          end if;
 
       --  If we do not have a with clause, then ignore any reference to an