CocoR/Test2/tests/q_bad_const.mod

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