Return to arrayrec.mod CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / dbx / tests / mod

Annotation of 43BSD/ucb/dbx/tests/mod/arrayrec.mod, revision 1.1

1.1     ! root        1: (*
        !             2:  * Test of arrays of records.
        !             3:  *)
        !             4: 
        !             5: module main;
        !             6: type
        !             7:     Rec = record
        !             8:        charValue : char;
        !             9:        intValue : integer;
        !            10:        subrange : [0..1000];
        !            11:        realValue : real;
        !            12:     end;
        !            13:     Arr = array [1..10] of Rec;
        !            14: var
        !            15:     a : Arr;
        !            16: begin
        !            17:     a[1].charValue := 'c';
        !            18:     a[1].intValue := 3;
        !            19:     a[1].subrange := 10;
        !            20:     a[1].realValue := 3.4;
        !            21:     a[2].charValue := 'd';
        !            22:     a[2].intValue := 4;
        !            23:     a[2].subrange := 11;
        !            24:     a[2].realValue := 4.5;
        !            25:     a[3].charValue := 'e';
        !            26:     a[3].intValue := 5;
        !            27:     a[3].subrange := 12;
        !            28:     a[3].realValue := 5.6;
        !            29: end main.

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