CocoR/Test1/tests/t_bad_index.LST

Listing:

    1  MODULE TIdx;
    2  VAR x : INTEGER; v : ARRAY [1 .. 5] OF INTEGER; r : REAL;
    3  BEGIN x[1] := 2; v[r] := 3
*****          ^ not an ARRAY type
*****                     ^ array index must be integer
    4  END TIdx.

    2 errors