4.3BSD - /usr/src/ucb/dbx/tests/pc/nested.p

   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.