Fix #8956 - Firebird 6.0: DECLARE VARIABLE does not accept arbitrary expressions within declared routines

Author: asfernandes

src/dsql/StmtNodes.cpp

@@ -2202,7 +2202,7 @@ DmlNode* DeclareVariableNode::parse(thread_db* tdbb, MemoryPool& pool, CompilerS
 
 DeclareVariableNode* DeclareVariableNode::dsqlPass(DsqlCompilerScratch* dsqlScratch)
 {
-	if (dsqlDef->defaultClause)
+	if (dsqlDef->defaultClause && !(dsqlScratch->flags & DsqlCompilerScratch::FLAG_SUB_ROUTINE))
 		dsqlDef->defaultClause->value = doDsqlPass(dsqlScratch, dsqlDef->defaultClause->value);
 
 	dsql_fld* field = dsqlDef->type;
@@ -5059,7 +5059,6 @@ ExecBlockNode* ExecBlockNode::dsqlPass(DsqlCompilerScratch* dsqlScratch)
 		if (newParam->defaultClause)
 			newParam->defaultClause->value = doDsqlPass(dsqlScratch, newParam->defaultClause->value);
 
-
 		{ // scope
 			ValueExprNode* temp = newParam->parameterExpr;