M2compiler-V1/tests/t_bad_const.LST

Listing:

    1  MODULE TBadConst;
    2  CONST A = 10; B = A + 1;
*****                        ^ not supported in this phase
    3  VAR ExitCode : INTEGER;
    4  BEGIN
    5    ExitCode := A
    6  END TBadConst.

    1 error