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

gcc/ada/

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

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index eb0d08a1851718682045ce10c701f6f08df33fb4..8bce0229867413d3825a6364db80b307c7049e95 100644 (file)
--- 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;