M2compiler-V1/tests/o_high.mod

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