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

Text File | 2005-10-24 | 229b | 21 lines

program is
  procedure f() is
   begin
     write(1);
     return;
     write(2);
   end;
  procedure g() is
   begin
     write(10);
     f();
     write(20);
   end;
  begin
    write(100);
    g();
    write(200);
  end;