M2compiler-V2/tests/t_case.mod

MODULE TCase;
VAR ExitCode : INTEGER;
    i, k : INTEGER;
    c : CHAR;
BEGIN
  ExitCode := 0;
  i := 2;
  CASE i OF
    1: ExitCode := ExitCode + 1
  | 2, 3: ExitCode := ExitCode + 10
  | 4..6: ExitCode := ExitCode + 100
  ELSE ExitCode := ExitCode + 1000
  END;
  k := 7;
  CASE k OF
    1: k := 0
  ELSE k := k + 1
  END;
  ExitCode := ExitCode + k;
  c := 'b';
  CASE c OF
    'a': ExitCode := ExitCode + 100
  | 'b': ExitCode := ExitCode + 20
  ELSE ExitCode := ExitCode + 200
  END;
  i := 99;
  CASE i OF
    1: i := 0
  ELSE i := i + 1
  END;
  ExitCode := ExitCode + i
END TCase.