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

Text File | 2005-10-24 | 286b | 24 lines

program is
  procedure f() is
    procedure g() is
      procedure f() is
        begin
      write(3);
        end;
      begin
    write(4);
    f();
    write(5);
      end;
    begin
      write(6);
      g();
      write(7);
    end;
  begin
    write(1);
    f();
    write(2);
  end;