Return to records.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / dbx / tests / pc

BSD 4.3reno

program recordtest (input, output);
type
    Rec = record
	charValue : char;
	intValue : integer;
	subrange : 0..1000;
	realValue : real;
    end;
var
    r : Rec;
begin
    r.charValue := 'c';
    r.intValue := 3;
    r.subrange := 10;
    r.realValue := 3.4;
end.

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