Fixed bug in simplify of cos(0) * cos(0) (MC bug 654)

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

Author: Peter Aronsson

Compiler/Exp.mo

@@ -1998,9 +1998,8 @@ algorithm
     case (((e,r) :: xs))
       equation 
         res = simplifyMulMakePow(xs);
-        tp = typeof(e);
       then
-        (BINARY(e,POW(tp),RCONST(r)) :: res);
+        (BINARY(e,POW(REAL()),RCONST(r)) :: res);
   end matchcontinue;
 end simplifyMulMakePow;