[NF] Add subscripting tests.

Belonging to [master]:
  - OpenModelica/OMCompiler#2609
  - OpenModelica/OpenModelica-testsuite#1015

Author: perost

flattening/modelica/scodeinst/Makefile

@@ -692,6 +692,8 @@ Subscript1.mo \
 Subscript2.mo \
 Subscript3.mo \
 Subscript4.mo \
+Subscript5.mo \
+Subscript6.mo \
 SubscriptCevalIndex1.mo \
 SubscriptCevalIndexRange1.mo \
 SubscriptCevalSlice1.mo \

flattening/modelica/scodeinst/Subscript5.mo

@@ -0,0 +1,45 @@
+// name: Subscript5
+// status: correct
+// cflags: -d=newInst
+//
+// Checks that partially subscripted crefs are padded with :.
+// 
+
+function f
+  input Real x[:, :];
+  input Real y[:, :];
+  output Real z;
+algorithm
+  z := x[1] * y[2];
+end f;
+
+model Subscript5
+  Real x[3, 3] = {{time, 1, 2}, {3, 4, 5}, {6, 7, 8}};
+  Real y = f(x, x);
+end Subscript5;
+  
+
+// Result:
+// function f
+//   input Real[:, :] x;
+//   input Real[:, :] y;
+//   output Real z;
+// algorithm
+//   z := x[1,:] * y[2,:];
+// end f;
+//
+// class Subscript5
+//   Real x[1,1];
+//   Real x[1,2];
+//   Real x[1,3];
+//   Real x[2,1];
+//   Real x[2,2];
+//   Real x[2,3];
+//   Real x[3,1];
+//   Real x[3,2];
+//   Real x[3,3];
+//   Real y = f(x, x);
+// equation
+//   x = {{time, 1.0, 2.0}, {3.0, 4.0, 5.0}, {6.0, 7.0, 8.0}};
+// end Subscript5;
+// endResult

flattening/modelica/scodeinst/Subscript6.mo

@@ -0,0 +1,32 @@
+// name: Subscript6
+// status: correct
+// cflags: -d=newInst
+//
+// 
+
+model Subscript6
+  Real x[2, 2, 2];
+  Real y[2];
+  Integer i;
+equation
+  y = x[i, 2, :] - x[i, 1, :];
+end Subscript6;
+  
+// Result:
+// class Subscript6
+//   Real x[1,1,1];
+//   Real x[1,1,2];
+//   Real x[1,2,1];
+//   Real x[1,2,2];
+//   Real x[2,1,1];
+//   Real x[2,1,2];
+//   Real x[2,2,1];
+//   Real x[2,2,2];
+//   Real y[1];
+//   Real y[2];
+//   Integer i;
+// equation
+//   y[1] = x[i,2,1] - x[i,1,1];
+//   y[2] = x[i,2,2] - x[i,1,2];
+// end Subscript6;
+// endResult