CocoR/Test1/tests/t_ok_const_var.LST

Listing:

    1  MODULE ConstVar;
    2  CONST Max = 100; Pi = 314;
    3  VAR x, y : INTEGER; r : REAL; flag : BOOLEAN;
    4  BEGIN
    5    x := 1 + 2 * 3 - 4 DIV 2;
    6    y := (x + Max) * 2;
    7    r := 3.14;
    8    flag := (x < y) AND (x # 0)
    9  END ConstVar.

    0 errors