Bugfix: correcting variable declaration in ExpandSums[F[expr]]

FlexibleSUSY · May 12, 2016 · 0479de2 · 0479de2
1 parent ff7a601
commit 0479de2
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/meta/CConversion.m b/meta/CConversion.m
@@ -936,12 +936,11 @@
 ExpandSums[Fun_[expr_,rest___] /; !FreeQ[expr,IndexSum], variable_String,
            type_:CConversion`ScalarType[CConversion`complexScalarCType],
            initialValue_String:""] :=
-    Module[{var, expandedSums, result = ""},
+    Module[{var, result = ""},
            var = CreateUniqueCVariable[];
-           expandedSums = ExpandSums[expr, var, type, initialValue];
-           result = expandedSums <>
-                    CConversion`CreateCType[type] <> " " <> variable <> " = " <>
-                    ToString[Fun] <> "(" <> var <>
+           result = CConversion`CreateCType[type] <> " " <> var <> ";\n" <>
+                    ExpandSums[expr, var, type, initialValue] <>
+                    variable <> " = " <> ToString[Fun] <> "(" <> var <>
                     If[{rest} === {}, "", ","] <>
                     Utils`StringJoinWithSeparator[RValueToCFormString /@ {rest}, ","] <>
                     ");\n";