fix double free in spec function

test_run("linear_algebra","bug_3652")

Change-Id: I1f67fa8e7daacf459c98001a4776169915701f39

diff --git a/scilab/modules/linear_algebra/sci_gateway/cpp/sci_spec.cpp b/scilab/modules/linear_algebra/sci_gateway/cpp/sci_spec.cpp
index 10355a7..49cb7dc 100644 (file)
--- a/scilab/modules/linear_algebra/sci_gateway/cpp/sci_spec.cpp
+++ b/scilab/modules/linear_algebra/sci_gateway/cpp/sci_spec.cpp
@@ -525,7 +525,7 @@ types::Function::ReturnValue sci_spec(types::typed_list &in, int _iRetCount, typ
         {
             vFreeDoubleComplexFromPointer(pR);
         }
-        if (pDblB->isComplex())
+        if (bIsComplex && pDblB->isComplex())
         {
             vFreeDoubleComplexFromPointer((doublecomplex*)pDataB);
         }