CocoR/Test2/tests/q_enum.LST

Listing:

    1  MODULE QEnum;
    2  TYPE Color = (red, green, blue);
    3  VAR c : Color; ExitCode : INTEGER;
    4  BEGIN
    5    c := green;
    6    CASE c OF
    7      red : ExitCode := 0
    8    | green : ExitCode := 1
    9    | blue : ExitCode := 2
   10    ELSE ExitCode := 9
   11    END
   12  END QEnum.

    0 errors