[gcc r15-413] ada: Refine type of a local variable

[Marc Poulhi?s via Gcc-cvs]

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

commit r15-413-gda8847559413c15fb6da1455eb1184f7aa928678
Author: Piotr Trojanek <troja...@adacore.com>
Date:   Mon Jan 29 16:32:19 2024 +0100

    ada: Refine type of a local variable
    
    Code cleanup; semantics is unaffected.
    
    gcc/ada/
    
            * sem_util.adb (Has_No_Output): Iteration with
            First_Formal/Next_Formal involves Entity_Ids.

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

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index e9ab6650dac6..03055039a1fa 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -4203,7 +4203,7 @@ package body Sem_Util is
             -------------------
 
             function Has_No_Output (Subp : Entity_Id) return Boolean is
-               Param : Node_Id;
+               Param : Entity_Id;
 
             begin
                --  A function has its result as output