[NF] Added function evaluation test with record.

Belonging to [master]: - OpenModelica/OMCompiler#2414 - OpenModelica/OpenModelica-testsuite#940
OpenModelica · May 7, 2018 · 83fe9fa · 83fe9fa
1 parent 2ec1643
commit 83fe9fa
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 0 deletions.
diff --git a/flattening/modelica/scodeinst/CevalFuncRecord1.mo b/flattening/modelica/scodeinst/CevalFuncRecord1.mo
@@ -0,0 +1,28 @@
+// name: CevalFuncRecord1
+// keywords:
+// status: correct
+// cflags: -d=newInst
+//
+//
+
+record R
+  Real x;
+  Real y;
+end R;
+
+function f
+  input Real x;
+  input Real y;
+  output R r(x = x, y = y);
+end f;
+
+model CevalFuncRecord1
+  parameter R r = f(1.0, 2.0);
+end CevalFuncRecord1;
+
+// Result:
+// class CevalFuncRecord1
+//   parameter Real r.x = 1.0;
+//   parameter Real r.y = 2.0;
+// end CevalFuncRecord1;
+// endResult
diff --git a/flattening/modelica/scodeinst/Makefile b/flattening/modelica/scodeinst/Makefile
@@ -73,6 +73,7 @@ CevalFuncAssert2.mo \
 CevalFuncFor1.mo \
 CevalFuncFor2.mo \
 CevalFuncIf1.mo \
+CevalFuncRecord1.mo \
 CevalFuncRecursive1.mo \
 CevalFuncRecursive2.mo \
 CevalFuncTerminate1.mo \