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

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.