Return to nested.p CVS log

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

Annotation of 43BSD/ucb/dbx/tests/pc/nested.p, revision 1.1.1.1

1.1       root        1: (*
                      2:  * Test of nested procedures and modules.
                      3:  *)
                      4: 
                      5: program nested (input, output);
                      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;
                     20: 
                     21: begin
                     22:     j := i + 1;
                     23:     nestedp(j);
                     24:     i := j;
                     25: end;
                     26: 
                     27: begin
                     28:     i := 3;
                     29:     p(i);
                     30: end.

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