- cast to double so that 1/10 doesn't become zero

OpenModelica · Mar 4, 2016 · b388aff · b388aff
1 parent a391fa9
commit b388aff
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Compiler/FrontEnd/Expression.mo b/Compiler/FrontEnd/Expression.mo
@@ -1558,7 +1558,10 @@ algorithm
     case DAE.REAL_CLOCK(e)
       then e;
     case DAE.INTEGER_CLOCK(e, er)
-      then DAE.BINARY(e, DAE.DIV(DAE.T_REAL_DEFAULT), er);
+      then DAE.BINARY(
+             DAE.CAST(DAE.T_REAL_DEFAULT, e),
+             DAE.DIV(DAE.T_REAL_DEFAULT),
+             DAE.CAST(DAE.T_REAL_DEFAULT, er));
     else
       then DAE.RCONST(0.0);
   end match;