oberonjs/test/input/array.ob

MODULE m;

CONST arraySize = 10;

TYPE
    T1 = ARRAY arraySize OF INTEGER;
    T2 = ARRAY 5 OF T1;
    T3 = ARRAY 3 OF ARRAY 7 OF BOOLEAN;
    T4 = ARRAY 3, 4 OF BOOLEAN;

VAR
    a1, a11: T1;
    a2: T2;
    a3: ARRAY 5 OF BOOLEAN;
	a4: T4;
    a5: ARRAY 3 OF RECORD END;

PROCEDURE p; 
VAR a3: ARRAY 1 OF INTEGER;
BEGIN 
    a3[0] := 1 
END p;

PROCEDURE p1(a: T1);
END p1;

PROCEDURE p2(VAR a: T1);
BEGIN
    p1(a)
END p2;

PROCEDURE testAssign();
TYPE
    T = RECORD
    END;
VAR
    aInts1, aInts2: ARRAY 3 OF INTEGER;
    aRecords1, aRecords2: ARRAY 3 OF T;
    aPointers1, aPointers2: ARRAY 3 OF POINTER TO T;
    arrayOfArray1, arrayOfArray2: ARRAY 3, 5 OF BOOLEAN;
BEGIN
    aInts2 := aInts1;
    aRecords2 := aRecords1;
    aPointers2 := aPointers1;
    arrayOfArray2 := arrayOfArray1;
END testAssign;

PROCEDURE testPassOpenArray(a: ARRAY OF INTEGER);
END testPassOpenArray;

BEGIN
    a1[0] := 1;
    a3[1] := TRUE;
	a4[1][2] := TRUE;
	a4[1, 2] := TRUE;

    p1(a1);
    p2(a1);

    a1 := a11;

    testPassOpenArray(a1);
END m.