M2compiler-V1/tests/o_bad_high.LST

Listing:

    1  MODULE OBadHigh;
    2  VAR x : INTEGER;
    3  BEGIN
    4    x := HIGH(x)
*****               ^ not an ARRAY type
    5  END OBadHigh.

    1 error