M2compiler-V1/tests/t_if.LST

Listing:

    1  MODULE TIf;
    2  VAR x : INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    x := 2;
    5    IF x = 1 THEN ExitCode := 10
    6    ELSIF x = 2 THEN ExitCode := 20
    7    ELSE ExitCode := 30 END;
    8    IF x # 2 THEN ExitCode := 99 END
    9  END TIf.

    0 errors