M2compiler-V1/tests/o_high.LST

Listing:

    1  MODULE OHigh;
    2  VAR a : ARRAY [1 .. 5] OF INTEGER; b : ARRAY [0 .. 9] OF INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    ExitCode := HIGH(a) + HIGH(b)
    5  END OHigh.

    0 errors