[NF] Add record binding test.

Belonging to [master]: - OpenModelica/OMCompiler#2727 - OpenModelica/OpenModelica-testsuite#1053
OpenModelica · Oct 17, 2018 · 4654c86 · 4654c86
1 parent 9f2d99a
commit 4654c86
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 0 deletions.
diff --git a/flattening/modelica/scodeinst/Makefile b/flattening/modelica/scodeinst/Makefile
@@ -641,6 +641,7 @@ RealRangeBinding1.mo \
 RecordBinding1.mo \
 RecordBinding2.mo \
 RecordBinding3.mo \
+RecordBinding4.mo \
 RecursiveExtends1.mo \
 RecursiveExtends3.mo \
 RedeclareClass1.mo \

diff --git a/flattening/modelica/scodeinst/RecordBinding4.mo b/flattening/modelica/scodeinst/RecordBinding4.mo
@@ -0,0 +1,24 @@
+// name: RecordBinding4
+// keywords:
+// status: correct
+// cflags: -d=newInst
+//
+
+record R
+  Real x;
+  Real y;
+end R;
+
+model RecordBinding4
+  parameter R r1;
+  parameter R r2 = r1;
+end RecordBinding4;
+
+// Result:
+// class RecordBinding4
+//   parameter Real r1.x;
+//   parameter Real r1.y;
+//   parameter Real r2.x = r1.x;
+//   parameter Real r2.y = r1.y;
+// end RecordBinding4;
+// endResult