M2compiler-V2/tests/t_case.LST

Listing:

    1  MODULE TCase;
    2  VAR ExitCode : INTEGER;
    3      i, k : INTEGER;
    4      c : CHAR;
    5  BEGIN
    6    ExitCode := 0;
    7    i := 2;
    8    CASE i OF
    9      1: ExitCode := ExitCode + 1
   10    | 2, 3: ExitCode := ExitCode + 10
   11    | 4..6: ExitCode := ExitCode + 100
   12    ELSE ExitCode := ExitCode + 1000
   13    END;
   14    k := 7;
   15    CASE k OF
   16      1: k := 0
   17    ELSE k := k + 1
   18    END;
   19    ExitCode := ExitCode + k;
   20    c := 'b';
   21    CASE c OF
   22      'a': ExitCode := ExitCode + 100
   23    | 'b': ExitCode := ExitCode + 20
   24    ELSE ExitCode := ExitCode + 200
   25    END;
   26    i := 99;
   27    CASE i OF
   28      1: i := 0
   29    ELSE i := i + 1
   30    END;
   31    ExitCode := ExitCode + i
   32  END TCase.

    0 errors