M2compiler-V1/tests/d_case.LST

Listing:

    1  MODULE DCase;
    2  IMPORT ELib;
    3  VAR r : INTEGER;
    4  VAR ExitCode : INTEGER;
    5  BEGIN
    6    r := 0;
    7    CASE ELib.c OF
    8      ELib.Red : r := 1 |
    9      ELib.Green : r := 2 |
   10      ELib.Blue : r := 3
   11    END;
   12    ExitCode := r * 10 + 5
   13  END DCase.

    0 errors