[NF] Add record inheritance tests.

Belonging to [master]:
  - OpenModelica/OMCompiler#2803
  - OpenModelica/OpenModelica-testsuite#1082

flattening/modelica/scodeinst/Makefile

@@ -655,6 +655,8 @@ RecordBinding1.mo \
 RecordBinding2.mo \
 RecordBinding3.mo \
 RecordBinding4.mo \
+RecordExtends1.mo \
+RecordExtends2.mo \
 RecursiveExtends1.mo \
 RecursiveExtends3.mo \
 RedeclareClass1.mo \

flattening/modelica/scodeinst/RecordExtends1.mo

@@ -0,0 +1,31 @@
+// name: RecordExtends1
+// keywords:
+// status: correct
+// cflags: -d=newInst
+//
+
+record R
+  Real x;
+end R;
+
+model M1
+  record R1 = R(x = 1.0);
+  R1 r1;
+end M1;
+
+model M2
+  record R2 = R(x = 2.0);
+  R2 r2;
+end M2;
+
+model RecordExtends1
+  M1 m1;
+  M2 m2;
+end RecordExtends1;
+
+// Result:
+// class RecordExtends1
+//   Real m1.r1.x = 1.0;
+//   Real m2.r2.x = 2.0;
+// end RecordExtends1;
+// endResult

flattening/modelica/scodeinst/RecordExtends2.mo

@@ -0,0 +1,39 @@
+// name: RecordExtends2
+// keywords:
+// status: correct
+// cflags: -d=newInst
+//
+
+package P
+  constant Integer n;
+
+  record R
+    Real x[n];
+  end R;
+end P;
+
+model M1
+  package P1 = P(n = 1);
+  P1.R r1 = P1.R({1.0});
+end M1;
+
+model M2
+  package P2 = P(n = 2);
+  P2.R r2 = P2.R({1.0, 2.0});
+end M2;
+
+model RecordExtends2
+  M1 m1;
+  M2 m2;
+end RecordExtends2;
+
+// Result:
+// class RecordExtends2
+//   Real m1.r1.x[1];
+//   Real m2.r2.x[1];
+//   Real m2.r2.x[2];
+// equation
+//   m1.r1.x = {1.0};
+//   m2.r2.x = {1.0, 2.0};
+// end RecordExtends2;
+// endResult