changed implementation of Static.elabBuiltinSum to handle also sum(3.0)

this generates an warning 

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@2416 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Author: x02lucpo

Compiler/Error.mo

@@ -270,6 +270,8 @@ public constant ErrorID ERROR_FLATTENING=88;
 
 public constant ErrorID UNBOUND_PARAMETER_WARNING=500;
 
+public constant ErrorID BUILTIN_FUNCTION_SUM_HAS_SCALAR_PARAMETER=501;
+
 public constant ErrorID INDEX_REDUCTION_NOTIFICATION=1000;
 
 protected constant list<tuple<Integer, MessageType, Severity, String>> errorTable={(SYNTAX_ERROR,SYNTAX(),ERROR(),"Syntax error near: %s"),
@@ -446,6 +448,8 @@ protected constant list<tuple<Integer, MessageType, Severity, String>> errorTabl
           "Error occured while flattening model %s"),
           (UNBOUND_PARAMETER_WARNING,TRANSLATION(),WARNING(),
           "Warning, parameter %s has no value."),
+          (BUILTIN_FUNCTION_SUM_HAS_SCALAR_PARAMETER(),TRANSLATION(),WARNING(),
+          "Warning, function \"sum\" has scalar as parameter. Parameter: \"%s\""),
           (INDEX_REDUCTION_NOTIFICATION,SYMBOLIC(),NOTIFICATION(),
           "Notification, differentiated equation %s to %s for index reduction.")};
 

Compiler/Static.mo

@@ -2200,6 +2200,22 @@ algorithm
       list<Env.Frame> env;
       Absyn.Exp arrexp;
       Boolean impl;
+    case (env,{arrexp},impl) /* impl */ 
+      local String str;
+      equation 
+        (exp_1,Types.PROP((Types.T_INTEGER({}),_),c),_) = elabExp(env, arrexp, impl, NONE);
+        str = Dump.printExpStr(arrexp);
+        Error.addMessage(Error.BUILTIN_FUNCTION_SUM_HAS_SCALAR_PARAMETER, {str});
+      then
+         (exp_1,Types.PROP((Types.T_INTEGER({}),NONE),c));
+    case (env,{arrexp},impl) /* impl */ 
+      local String str;
+      equation 
+        (exp_1,Types.PROP((Types.T_REAL({}),_),c),_) = elabExp(env, arrexp, impl, NONE);
+        str = Dump.printExpStr(arrexp);
+        Error.addMessage(Error.BUILTIN_FUNCTION_SUM_HAS_SCALAR_PARAMETER, {str});
+      then
+         (exp_1,Types.PROP((Types.T_REAL({}),NONE),c));
     case (env,{arrexp},impl) /* impl */ 
       equation 
         (exp_1,Types.PROP((Types.T_ARRAY(dim,tp),_),c),_) = elabExp(env, arrexp, impl, NONE);