Browse Source

more tests

Vladislav Folts 9 năm trước cách đây
mục cha
commit
1f35e589c1
2 tập tin đã thay đổi với 12 bổ sung0 xóa
  1. 5 0
      test/expected/check_indexes.js
  2. 7 0
      test/input/check_indexes.ob

+ 5 - 0
test/expected/check_indexes.js

@@ -23,4 +23,9 @@ function writeIntArray(a/*VAR ARRAY OF INTEGER*/){
 	var i = 0;
 	RTL$.putAt(a, 1, i);
 }
+
+function multiDimArray(i/*INTEGER*/, j/*INTEGER*/){
+	var a = RTL$.makeArray(5, 5, 0);
+	RTL$.putAt(RTL$.getAt(a, 1), 2, RTL$.getAt(RTL$.getAt(a, 3), 4));
+}
 }();

+ 7 - 0
test/input/check_indexes.ob

@@ -32,4 +32,11 @@ BEGIN
 	a[1] := i;
 END writeIntArray;
 
+PROCEDURE multiDimArray(i, j: INTEGER);
+VAR
+	a: ARRAY 5, 5 OF INTEGER;
+BEGIN
+	a[1][2] := a[3, 4];
+END multiDimArray;
+
 END m.