Return to nestedf.p CVS log

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

Annotation of 43BSDTahoe/ucb/dbx/tests/pc/nestedf.p, revision 1.1

1.1     ! root        1: (*
        !             2:  * Test of nested functions.
        !             3:  *)
        !             4: 
        !             5: program nested (input, output);
        !             6: var
        !             7:     i, k : integer;
        !             8: 
        !             9: function f (var i : integer) : integer;
        !            10: var
        !            11:     j, k : integer;
        !            12: 
        !            13:     function nestedf (var j : integer) : integer;
        !            14:     var
        !            15:        i : integer;
        !            16:     begin
        !            17:        i := j + 2;
        !            18:        j := i;
        !            19:        nestedf := j;
        !            20:     end;
        !            21: 
        !            22: begin
        !            23:     j := i + 1;
        !            24:     i := nestedf(j);
        !            25:     i := j;
        !            26:     f := i;
        !            27: end;
        !            28: 
        !            29: begin
        !            30:     i := 3;
        !            31:     i := f(i);
        !            32: end.

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