Extend ArraySlice test

OpenModelica · Mar 28, 2016 · 32dfc31 · 32dfc31
1 parent 86ce9fb
commit 32dfc31
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/openmodelica/cppruntime/arraySliceTest.mos b/openmodelica/cppruntime/arraySliceTest.mos
@@ -16,7 +16,8 @@ function reverse
   input Real[:,1] m;
   output Real[size(m, 1) - 1] w;
 protected
-  Real[:] v = m[:,1];      // test reduction if size(dim) is 1
+  Real[:,:] m2 = m[:,:];   // test all indices if size(dim) is 1
+  Real[:] v = m2[:,1];     // test reduction if size(dim) is 1
 algorithm
   w := v[size(w, 1):-1:1]; // test slice with negative step
 end reverse;