[NF] Add record binding tests.

Belonging to [master]:
  - OpenModelica/OMCompiler#2307
  - OpenModelica/OpenModelica-testsuite#891

flattening/modelica/scodeinst/Makefile

@@ -507,6 +507,8 @@ RangeInvalidStep3.mo \
 RangeTypeError1.mo \
 RangeTypeError2.mo \
 RangeTypeError3.mo \
+RecordBinding1.mo \
+RecordBinding2.mo \
 RecursiveExtends1.mo \
 RecursiveExtends3.mo \
 RedeclareClass1.mo \

flattening/modelica/scodeinst/RecordBinding1.mo

@@ -0,0 +1,23 @@
+// name: RecordBinding1
+// keywords:
+// status: correct
+// cflags: -d=newInst
+//
+
+record R
+  Real x = 1.0;
+  Real y = 2.0;
+  Real z = 3.0;
+end R;
+
+model RecordBinding1
+  R r = R(4.0, 5.0);
+end RecordBinding1;
+
+// Result:
+// class RecordBinding1
+//   Real r.x = 4.0;
+//   Real r.y = 5.0;
+//   Real r.z = 3.0;
+// end RecordBinding1;
+// endResult

flattening/modelica/scodeinst/RecordBinding2.mo

@@ -0,0 +1,29 @@
+// name: RecordBinding2
+// keywords:
+// status: correct
+// cflags: -d=newInst
+//
+
+record R
+  Real x = 1.0;
+  Real y = 2.0;
+  Real z = 3.0;
+end R;
+
+model RecordBinding2
+  R r[2] = {R(4.0, 5.0), R(6.0, 7.0)};
+end RecordBinding2;
+
+// Result:
+// class RecordBinding2
+//   Real r[1].x;
+//   Real r[1].y;
+//   Real r[1].z;
+//   Real r[2].x;
+//   Real r[2].y;
+//   Real r[2].z;
+// equation
+//   r[1] = R.'constructor'.'$default'(4.0, 5.0, 3.0);
+//   r[2] = R.'constructor'.'$default'(6.0, 7.0, 3.0);
+// end RecordBinding2;
+// endResult