M2compiler-V1/tests/t_char.LST

Listing:

    1  MODULE TChar;
    2  VAR c, d : CHAR; ExitCode : INTEGER;
    3  BEGIN
    4    c := 'a';
    5    d := 'b';
    6    IF c < d THEN ExitCode := 97 ELSE ExitCode := 98 END
    7  END TChar.

    0 errors