[COMMITTED] ada: Get name from entity if that's what's passed to Subprogram_Name

[Marc Poulhiès via Gcc-patches]

From: Richard Kenner <ken...@adacore.com>

gcc/ada/

        * sem_util.adb (Subprogram_Name): If what's passed is already an
        entity, use that for the name.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/sem_util.adb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index eb0d08a1851..8bce0229867 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -28095,6 +28095,9 @@ package body Sem_Util is
                Ent := Defining_Identifier (Ent);
                exit;
 
+            when N_Entity =>
+               exit;
+
             when others =>
                null;
          end case;
-- 
2.40.0