4.3BSD-Tahoe/usr/src/ucb/dbx/tests/mod/const.mod

module main;
const
    PI = 3.14159;
    N = 10;
    MESSAGE = "this is a test";
    CH = 'x';
    S = {1, 3, 5};
    B = true;
type
    Color = (RED, BLUE, GREEN);
procedure p ();
const
    R = RED;
type
    T = integer;
var i : integer;
begin
end p;

begin
end main.