M2compiler-V1/tests/t_case.LST

Listing:

    1  MODULE TCase;
    2  VAR x : INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    x := 7;
    5    CASE x OF
    6      1, 2 : ExitCode := 1
    7    | 3 .. 6 : ExitCode := 2
    8    | 7 .. 10 : ExitCode := 3
    9    ELSE ExitCode := 9
   10    END;
   11    CASE x + 1 OF
   12      8 : ExitCode := ExitCode + 100
   13    ELSE ExitCode := 0
   14    END
   15  END TCase.

    0 errors