4.4BSD/usr/src/old/dbx/tests/pc/const.p

program consttest (input, output);
const
    PI = 3.14159;
    N = 10;
    MESSAGE = 'this is a test';
    CH = 'x';
type
    Color = (RED, BLUE, GREEN);

procedure p ;
const
    R = RED;
type
    T = integer;
var i : integer;
begin
end;

begin
end.