M2compiler-V1/tests/a_enum.LST

Listing:

    1  MODULE AEnum;
    2  TYPE Color = (red, green, blue);
    3  VAR c : ARRAY Color OF INTEGER; ExitCode : INTEGER;
    4  BEGIN
    5    c[red] := 5;
    6    c[green] := 7;
    7    c[blue] := 9;
    8    ExitCode := c[red] + c[green] + c[blue]
    9  END AEnum.

    0 errors