M2compiler-V1/tests/t_bad_const.mod

MODULE TBadConst;
CONST A = 10; B = A + 1;
VAR ExitCode : INTEGER;
BEGIN
  ExitCode := A
END TBadConst.