File:  [CSRG BSD Unix] / 43BSDTahoe / lib / old_compiler / dbx / tests / pc / const.p
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 16:12:57 2018 UTC (8 years, 1 month ago) by root
Branches: MAIN, BSD
CVS tags: HEAD, BSD43tahoe
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.

unix.superglobalmegacorp.com

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