M2compiler-V1/tests/o_char.LST

Listing:

    1  MODULE OChar;
    2  VAR a : ARRAY [1 .. 4] OF CHAR; ExitCode : INTEGER;
    3  PROCEDURE Count(VAR x : ARRAY OF CHAR) : INTEGER;
    4  BEGIN
    5    RETURN HIGH(x) + 1
    6  END Count;
    7  BEGIN
    8    a := "test";
    9    ExitCode := Count(a)
   10  END OChar.

    0 errors