Resolves: tdf#94869 propagate error when obtaining a scalar double value

... if any operation like popping a value or calculating an intersection
resulted in error, so the error gets passed as double error to matrix
operations where one operand is a scalar value.

Change-Id: I909ba25545625b827ce790e07d1ebe8643154703

sc/source/core/tool/interpr4.cxx

@@ -821,7 +821,7 @@ double ScInterpreter::PopDouble()
     }
     else
         SetError( errUnknownStackVariable);
-    return 0.0;
+    return CreateDoubleError( nGlobalError);
 }
 
 svl::SharedString ScInterpreter::PopString()
@@ -1925,7 +1925,10 @@ bool ScInterpreter::DoubleRefToPosSingleRef( const ScRange& rRange, ScAddress& r
 double ScInterpreter::GetDoubleFromMatrix(const ScMatrixRef& pMat)
 {
     if (!pMat)
-        return 0.0;
+    {
+        SetError( errParameterExpected);
+        return CreateDoubleError( nGlobalError);
+    }
 
     if ( !pJumpMatrix )
         return pMat->GetDouble( 0 );
@@ -1938,7 +1941,7 @@ double ScInterpreter::GetDoubleFromMatrix(const ScMatrixRef& pMat)
         return pMat->GetDouble( nC, nR);
 
     SetError( errNoValue);
-    return 0.0;
+    return CreateDoubleError( nGlobalError);
 }
 
 double ScInterpreter::GetDouble()
@@ -1972,8 +1975,6 @@ double ScInterpreter::GetDouble()
                 aCell.assign(*pDok, aAdr);
                 nVal = GetCellValue(aAdr, aCell);
             }
-            else
-                nVal = 0.0;
         }
         break;
         case svExternalSingleRef:
@@ -2002,7 +2003,6 @@ double ScInterpreter::GetDouble()
         break;
         case svError:
             PopError();
-            nVal = 0.0;
         break;
         case svEmptyCell:
         case svMissing:
@@ -2012,8 +2012,16 @@ double ScInterpreter::GetDouble()
         default:
             PopError();
             SetError( errIllegalParameter);
-            nVal = 0.0;
     }
+
+    // Propagate error also as double error, so matrix operations where one
+    // operand is a scalar get that propagated if there is no specific
+    // nGlobalError check, and when the matrix is pushed the error is cleared
+    // because the matrix is assumed to hold double errors at the corresponding
+    // positions. See PushMatrix().
+    if (nGlobalError)
+        nVal = CreateDoubleError( nGlobalError);
+
     if ( nFuncFmtType == nCurFmtType )
         nFuncFmtIndex = nCurFmtIndex;
     return nVal;