Return to const.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / lib / old_compiler / dbx / tests / pc

BSD 4.3tahoe

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.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.