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 --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index e9ab6650dac6c2c32411e08a295d8a329c389f93..03055039a1faeb0f12c28d433499a273699a1599 100644 (file)
--- 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