From 66152ecdaebfce758cb5bd00702449dd2c584e68 Mon Sep 17 00:00:00 2001
From: Richard Kenner <kenner@adacore.com>
Date: Sun, 22 Jan 2023 12:38:41 -0500
Subject: 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.
---
 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;
-- 
cgit v1.2.1