ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p3/tst/proc3.pcat

Text File | 2005-10-24 | 162b | 11 lines

program is
  var x := 38;
  procedure f() is begin write (x); end;
  procedure g() is
    var x := 101;
    begin f(); write(x);
    end;
  begin
   g();
  end;