[Ada] Default_Initial_Condition check done after extended return with init

gcc/ada/

	* par-ch6.adb (P_Return_Object_Declaration): Set
	Has_Init_Expression flag.

diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb
index abf7d1052e34009a69dc90a27c0769020672739b..0821e68dde1ac0c410136b5d1d945559267d936b 100644 (file)
--- a/gcc/ada/par-ch6.adb
+++ b/gcc/ada/par-ch6.adb
@@ -1856,6 +1856,7 @@ package body Ch6 is
       if Token = Tok_Colon_Equal then
          Scan; -- past :=
          Set_Expression (Decl_Node, P_Expression_No_Right_Paren);
+         Set_Has_Init_Expression (Decl_Node);
       end if;
 
       return Decl_Node;