ada: Remove unused initial value of a local variable

Cleanup related to improved handling of expression functions in
GNATprove; semantics is unaffected.

gcc/ada/

	* sem_ch6.adb (Analyze_Return_Type): Remove unused initial value.

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 135d8ab7f0b33786bf30c3974531b693443d6d00..7c90747f2931cbd20e99947729339a41f66354ef 100644 (file)
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -2046,7 +2046,7 @@ package body Sem_Ch6 is
 
    procedure Analyze_Return_Type (N : Node_Id) is
       Designator : constant Entity_Id := Defining_Entity (N);
-      Typ        : Entity_Id := Empty;
+      Typ        : Entity_Id;
 
    begin
       --  Normal case where result definition does not indicate an error