Check modelica_output

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@451 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Sep 28, 1998 · ac7bf3f · ac7bf3f
1 parent f8b1410
commit ac7bf3f
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/modeq/exp.rml b/modeq/exp.rml
@@ -412,7 +412,13 @@ relation print_exp2: (Exp,int) => () =
 	-------------------------
 	print_exp2 (RANGE(start,SOME(step),stop),pri1)
 
-  rule	print "Real(" & print_exp e & print ")"
+  rule	RTOpts.modelica_output => false &
+	print "Real(" & print_exp e & print ")"
+	---------------------------------------
+	print_exp2 (CAST(REAL,e),_)
+
+  rule	RTOpts.modelica_output => true &
+	print_exp e
 	---------------------------------------
 	print_exp2 (CAST(REAL,e),_)