Return to test.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / pdx / test

Annotation of 43BSDReno/pgrm/pascal/pdx/test/test.p, revision 1.1.1.1

1.1       root        1: program blah(input, output);
                      2: const
                      3:        CONSTANT = 3;
                      4:        FLTCON = 3.14;
                      5: type
                      6:        Index = 1..10;
                      7:        intarray = array[Index] of 0..100;
                      8:        rec = record
                      9:                x : integer;
                     10:                y : char;
                     11:                z : integer;
                     12:        end;
                     13: var
                     14:        i : integer;
                     15:        x : real;
                     16:        a : array[1..10] of intarray;
                     17:        r : rec;
                     18:        p : ^rec;
                     19:        b : boolean;
                     20:        unused : integer;
                     21: 
                     22: function first(var p : integer) : integer;
                     23: begin
                     24:        i := p;
                     25:        r.x := 4;
                     26:        r.y := 'y';
                     27:        r.z := 6;
                     28:        b := true;
                     29:        first := p;
                     30: end;
                     31: 
                     32: procedure start;
                     33: var    q : integer;
                     34: begin
                     35:        q := -5;
                     36:        q := first(q);
                     37:        a[i][1] := q;
                     38: end;
                     39: 
                     40: procedure init;
                     41: var    i, j : integer;
                     42: begin
                     43:        b := false;
                     44:        for i := 1 to 10 do begin
                     45:                for j := 1 to 10 do begin
                     46:                        a[i][j] := 10*(i-1) + j;
                     47:                end;
                     48:        end;
                     49:        start;
                     50: end;
                     51: 
                     52: begin
                     53:        init;
                     54:        a[1][1] := 3;
                     55:        a[10][1] := 2;
                     56:        a[1][10] := 1;
                     57:        writeln('garbage');
                     58:        readln(i);
                     59: end.

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