Return to nested.mod CVS log

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

Annotation of 43BSDTahoe/ucb/dbx/tests/mod/nested.mod, revision 1.1

1.1     ! root        1: (*
        !             2:  * Test of nested procedures and modules.
        !             3:  *)
        !             4: 
        !             5: module main;
        !             6: var
        !             7:     i, k : integer;
        !             8: 
        !             9: procedure p (var i : integer);
        !            10: var
        !            11:     j, k : integer;
        !            12: 
        !            13:     procedure nestedp (var j : integer);
        !            14:     var
        !            15:        i : integer;
        !            16:     begin
        !            17:        i := j + 2;
        !            18:        j := i;
        !            19:     end nestedp;
        !            20: 
        !            21: begin
        !            22:     j := i + 1;
        !            23:     nestedp(j);
        !            24:     i := j;
        !            25: end p;
        !            26: 
        !            27: begin
        !            28:     i := 3;
        !            29:     p(i);
        !            30: end main.

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