MODULE Test_const_type;

    IMPORT Log := StdLog;
   
    PROCEDURE Do*;
        CONST
            c1 = LONG(2);
            c2 = c1 * 1024;
            c3 = LONG(c1 * 1024);
        VAR
            a: INTEGER;
            x: LONGINT;
    BEGIN
        a := MAX(INTEGER);
        x := c1 * a;
        Log.Int(x); Log.Ln;
        x := c2 * a;
        Log.Int(x); Log.Ln;
        x := c3 * a;
        Log.Int(x); Log.Ln
    END Do;
   
END Test_const_type.

^Q Test_const_type.Do